subroutine mflow_tauz | ( | integer | levs, |
real, dimension(levs) | up, | ||
real, dimension(levs) | vp, | ||
real, dimension(levs) | tp, | ||
real, dimension(levs) | qp, | ||
real, dimension(levs) | dp, | ||
real, dimension(levs) | zpm, | ||
real, dimension(levs+1) | zpi, | ||
real, dimension(levs) | pmid, | ||
real, dimension(levs+1) | pint, | ||
real, dimension(levs+1) | rho, | ||
real, dimension(levs+1) | ui, | ||
real, dimension(levs+1) | vi, | ||
real, dimension(levs+1) | ti, | ||
real, dimension(levs+1) | bn2i, | ||
real, dimension(levs+1) | bvi, | ||
real, dimension(levs+1) | rhoi | ||
) |
Referenced by gw_solver_linsatdis(), gw_solver_wmsdis(), ugwp_oro_lsatdis(), and ugwp_taub_oro().