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