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