CCPP Scientific Documentation
v5.0.0
subroutine ugwp_taub_oro ( integer, intent(in)  levs,
integer, intent(in)  izb,
real, intent(in)  kxw,
real, intent(in)  tau_izb,
real, intent(in)  fcor,
real, intent(in)  hprime,
real, intent(in)  sigma,
real, intent(in)  theta,
real, intent(in)  oc,
real, dimension(4), intent(in)  oa4,
real, dimension(4), intent(in)  clx4,
real, intent(in)  gamm,
real, intent(in)  elvp,
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 ), intent(in)  pmid,
real, dimension(levs+1), intent(in)  pint,
real, intent(out)  xn,
real, intent(out)  yn,
real, intent(out)  umag,
real, intent(out)  tautot,
real, intent(out)  tauogw,
real, intent(out)  taulee,
real, dimension(levs), intent(out)  drlee,
real, dimension(levs+1), intent(out)  tau_src,
real, intent(out)  kxridge,
integer, intent(out)  kdswj,
integer, intent(out)  krefj,
integer, intent(out)  kotr 
)

References cires_ugwp_module::frcrit, get_unit_vector(), cires_ugwp_module::linsat, mflow_tauz(), cires_ugwp_module::ricrit, and um_flow().

Referenced by ugwp_oro().

Here is the call graph for this function: