CCPP Scientific Documentation
v5.0.0
subroutine gw_solver_wmsdis ( integer  im,
integer  levs,
real  dtp,
integer  kdt,
integer  me,
real, dimension(im)  taub,
integer, dimension(im)  klev,
integer, dimension(im)  if_src,
integer  nf_src,
integer  nw,
real, dimension(nw )  ch,
integer  naz,
real, dimension(nw )  spf,
real, dimension(naz)  xaz,
real, dimension(naz)  yaz,
real, dimension(im)  fcor,
real, dimension(im)  c2f2,
real, dimension(im, levs)  u,
real, dimension(im, levs)  v,
real, dimension(im, levs)  t,
real, dimension(im, levs)  q,
real, dimension(im, levs+1)  prsi,
real, dimension(im, levs)  delp,
real, dimension(im, levs)  prsl,
real, dimension(im, levs)  prslk,
real, dimension(im, levs+1)  phii,
real, dimension(im, levs)  phil,
real, dimension(im, levs)  ax,
real, dimension(im, levs)  ay,
real, dimension(im, levs)  eps,
real, dimension(im, levs)  ked,
real, dimension(im, levs)  tauz 
)

References cires_ugwp_module::kion, cires_ugwp_module::krad, cires_ugwp_module::ktg, cires_ugwp_module::kvg, cires_ugwp_module::kxw, cires_ugwp_module::max_axyz, cires_ugwp_module::max_eps, cires_ugwp_module::max_kdis, mflow_tauz(), and ugwp_wmsdis_naz().

Referenced by cires_ugwp_module::cires_ugwp_driver().

Here is the call graph for this function: