| subroutine module_mp_nssl_2mom::nssl_2mom_gs |
( |
integer | nx, |
|
|
integer | ny, |
|
|
integer | nz, |
|
|
integer | na, |
|
|
integer | jyslab, |
|
|
integer | nor, |
|
|
integer | norz, |
|
|
real | dtp, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | gz, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t0, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t1, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t2, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t3, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t4, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t5, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t6, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t7, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t8, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t9, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz,na) | an, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+ng1:nz+norz) | dn, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+ng1:nz+norz) | p2, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+ng1:nz+norz) | pn, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+ng1:nz+norz) | w, |
|
|
integer, intent(in) | iunit, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t00, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | t77, |
|
|
real | ventr, |
|
|
real | ventc, |
|
|
real | c1sw, |
|
|
integer | jgs, |
|
|
integer, dimension(lc:lqmx) | ido, |
|
|
real, dimension(lc:lhab) | xdnmx, |
|
|
real, dimension(lc:lhab) | xdnmn, |
|
|
real, dimension(lc:lhab) | cdx, |
|
|
real, dimension(lc:lhab) | xdn0, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | tmp3d, |
|
|
real, dimension(-nor+1:nx+nor,-norz+ng1:nz+norz) | tkediss, |
|
|
real, dimension(nz,numproc), intent(inout) | thproc, |
|
|
integer, intent(in) | numproc, |
|
|
real, intent(in) | dx1, |
|
|
real, intent(in) | dy1, |
|
|
integer | ngs, |
|
|
double precision | timevtcalc, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz,nxtra) | axtra, |
|
|
logical, intent(in) | io_flag, |
|
|
logical, intent(in) | has_wetscav, |
|
|
real, dimension(-nor+1:nx+nor,-norz+ng1:nz+norz) | rainprod2d, |
|
|
real, dimension(-nor+1:nx+nor,-norz+ng1:nz+norz) | evapprod2d, |
|
|
real, dimension(-nor+1:nx+nor,-norz+ng1:nz+norz,3) | alpha2d, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg, |
|
|
real, dimension(-nor+ng1:nx+nor,-nor+ng1:ny+nor,-norz+ng1:nz+norz) | elec, |
|
|
integer | its, |
|
|
integer | ids, |
|
|
integer | ide, |
|
|
integer | jds, |
|
|
integer | jde ) |
|
private |
1.12.0