subroutine module_mp_nssl_2mom::smallvalues |
( |
integer | nx, |
|
|
integer | ny, |
|
|
integer | nz, |
|
|
integer | na, |
|
|
integer | jyslab, |
|
|
integer | nor, |
|
|
integer | norz, |
|
|
real | dtp, |
|
|
integer | nxi, |
|
|
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,na) | an, |
|
|
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) | w, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) | t77, |
|
|
logical, intent(in) | flag_qndrop ) |
|
private |