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 |