subroutine module_mp_nssl_2mom::sediment1d |
( |
real |
dtp, |
|
|
integer |
nx, |
|
|
integer |
ny, |
|
|
integer |
nz, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz,na) |
an, |
|
|
integer |
na, |
|
|
integer |
nor, |
|
|
integer |
norz, |
|
|
real, dimension(nx,ny,na) |
xfall, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) |
dn, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) |
dz3d, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) |
dz3dinv, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) |
t0, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) |
t7, |
|
|
integer |
infdo, |
|
|
integer |
jslab, |
|
|
integer |
its, |
|
|
integer |
jts, |
|
|
double precision |
timesed1, |
|
|
double precision |
timesed2, |
|
|
double precision |
timesed3, |
|
|
double precision |
zmaxsed, |
|
|
double precision |
timesetvt |
|
) |
| |
|
private |