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().