subroutine tpls |
( |
double precision, dimension(sx-1:ex+1,sy-1:ey+1,sz_p:ez_p), intent(in) |
phi2, |
|
|
double precision, dimension(sx-1:ex+1, sy-1:ey+1, sz_p:ez_p), intent(inout) |
phi3, |
|
|
double precision, dimension(sx-1:ex+1,sy-1:ey+1,sz_p:ez_p), intent(in) |
conv0_phi, |
|
|
double precision, dimension(sx-1:ex+1,sy-1:ey+1,sz_p:ez_p), intent(in) |
conv1_phi, |
|
|
double precision, dimension(sx-1:ex+1,sy-1:ey+1,sz_p:ez_p), intent(out) |
conv2_phi, |
|
|
integer, intent(in) |
sx, |
|
|
integer, intent(in) |
ex, |
|
|
integer, intent(in) |
sy, |
|
|
integer, intent(in) |
ey, |
|
|
integer, intent(in) |
sz_p, |
|
|
integer, intent(in) |
ez_p, |
|
|
integer, intent(in) |
maxn, |
|
|
integer, intent(in) |
ex_max, |
|
|
integer, intent(in) |
stride_p_xz, |
|
|
integer, intent(in) |
stride_p_yz, |
|
|
integer, intent(in) |
max_iteration_levelset, |
|
|
integer, dimension(6), intent(in) |
neighbours, |
|
|
integer, intent(in) |
comm2d_quasiperiodic, |
|
|
double precision, intent(in) |
height, |
|
|
double precision, intent(in) |
err2, |
|
|
double precision, intent(in) |
dx, |
|
|
double precision, intent(in) |
dz, |
|
|
double precision, intent(in) |
dt |
|
) |
| |