subroutine module_mp_nssl_2mom::nucond |
( |
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) | dz3d, |
|
|
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) | t9, |
|
|
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) | p2, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) | pn, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) | w, |
|
|
integer | ngs, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz,nxtra) | axtra, |
|
|
logical | io_flag, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) | ssfilt, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) | t00, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz) | t77, |
|
|
logical | flag_qndrop ) |
|
private |