CCPP Scientific Documentation
v5.0.0
subroutine ugwp_oro_lsatdis ( integer, intent(in)  krefj,
integer, intent(in)  levs,
real, intent(in)  tauogw,
real, intent(in)  tautot,
real, dimension(levs+1)  tau_src,
real, intent(in)  kxw,
real, intent(in)  fcor,
real, intent(in)  kxridge,
real, dimension(levs), intent(in)  up,
real, dimension(levs), intent(in)  vp,
real, dimension(levs), intent(in)  tp,
real, dimension(levs), intent(in)  qp,
real, dimension(levs), intent(in)  dp,
real, dimension(levs), intent(in)  zpm,
real, dimension(levs+1), intent(in)  zpi,
real, dimension(levs+1), intent(in)  pmid,
real, dimension(levs+1), intent(in)  pint,
real, intent(in)  xn,
real, intent(in)  yn,
real, intent(in)  umag,
real, dimension(levs), intent(out)  drtau,
real, dimension(levs), intent(out)  kdis 
)

References cires_ugwp_module::frcrit, cires_ugwp_module::hps, cires_ugwp_module::kion, cires_ugwp_module::krad, cires_ugwp_module::ktg, cires_ugwp_module::kvg, cires_ugwp_module::linsat, mflow_tauz(), cires_ugwp_module::rhp1, cires_ugwp_module::rhp2, and cires_ugwp_module::ricrit.

Referenced by ugwp_oro().

Here is the call graph for this function: