CCPP Scientific Documentation
v5.0.0
subroutine ugwp_wmsdis_naz ( integer  levs,
integer  ksrc,
integer  nw,
integer  naz,
real  kxw,
real  taub_lat,
real, dimension(nw)  ch,
real, dimension(naz)  xaz,
real, dimension(naz)  yaz,
real  fcor,
real  c2f2,
real, dimension(levs )  dp,
real, dimension(levs )  zmid,
real, dimension(levs+1)  zint,
real, dimension(levs )  pmid,
real, dimension(levs+1)  pint,
real, dimension(levs )  rho,
real, dimension(levs+1)  ui,
real, dimension(levs+1)  vi,
real, dimension(levs+1)  ti,
real, dimension(levs+1)  kvg,
real, dimension(levs+1)  ktg,
real, dimension(levs+1)  krad,
real, dimension(levs+1)  kion,
real, dimension(levs+1)  bn2i,
real, dimension(levs+1)  bvi,
real, dimension(levs+1)  rhoi,
real, dimension(levs )  ax,
real, dimension(levs )  ay,
real, dimension(levs )  eps,
real, dimension(levs+1)  ked,
real, dimension(levs+1)  tau1 
)

References fvs93_ugwps(), ugwp_limit_1d(), and ugwp_wmsdis_az1().

Referenced by gw_solver_wmsdis().

Here is the call graph for this function: