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