CCPP Scientific Documentation
v5.0.0
subroutine ugwp_lsatdis_naz ( integer  levs,
integer  ksrc,
integer  nw,
integer  naz,
real  kxw,
real, dimension(nw)  taub_spect,
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 ugwp_limit_1d(), and ugwp_lsatdis_az1().

Referenced by gw_solver_linsatdis().

Here is the call graph for this function: