subroutine get_all_initial_twophase |
( |
double precision, dimension(0:l,0:m,0:n-2) |
u, |
|
|
double precision, dimension(0:l,0:m,0:n-2) |
v, |
|
|
double precision, dimension(0:l,0:m,0:n-1) |
w, |
|
|
double precision, dimension(0:l,0:m,0:n) |
p, |
|
|
double precision, dimension(0:l,0:m,0:n) |
phi, |
|
|
double precision, dimension(0:l,0:m,0:n) |
visc, |
|
|
integer |
l, |
|
|
integer |
m, |
|
|
integer |
n, |
|
|
double precision |
dx, |
|
|
double precision |
dy, |
|
|
double precision |
dz, |
|
|
double precision |
Reynolds, |
|
|
double precision |
dpdl, |
|
|
double precision |
mu_minus, |
|
|
double precision |
mu_plus, |
|
|
double precision |
height, |
|
|
double precision |
smooth_width |
|
) |
| |