subroutine um_flow	(	integer, intent(in)	nz,
		integer, intent(in)	klow,
		integer, intent(in)	ktop,
		real, dimension(nz), intent(in)	up,
		real, dimension(nz), intent(in)	vp,
		real, dimension(nz), intent(in)	tp,
		real, dimension(nz), intent(in)	qp,
		real, dimension(nz), intent(in)	dp,
		real, dimension(nz), intent(in)	zpm,
		real, dimension(nz+1), intent(in)	zpi,
		real, dimension(nz), intent(in)	pmid,
		real, dimension(nz+1), intent(in)	pint,
		real, dimension(nz), intent(out)	bn2,
		real, intent(out)	uhm,
		real, intent(out)	vhm,
		real, intent(out)	bn2hm,
		real, intent(out)	rhohm
	)

Referenced by ugwp_drag_mtb(), and ugwp_taub_oro().