nssl_2mom_gs()

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, 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, 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

References gaminterp(), gaml02(), gaml02d300(), gaml02d500(), gamma_sp(), gamxinf(), gamxinfdp(), and setvtz().

Referenced by nssl_2mom_driver().

Here is the call graph for this function:

Here is the caller graph for this function: