subroutine ugwp_drag_mtb	(	integer, intent(in)	iemax,
		integer, intent(in)	nz,
		real, intent(in)	elvpd,
		real, intent(in)	elvp,
		real, intent(in)	hprime,
		real, intent(in)	sigma,
		real, intent(in)	theta,
		real, intent(in)	oc,
		real, dimension(4), intent(in)	oa4,
		real, dimension(4), intent(in)	clx4,
		real, intent(in)	gam,
		real, intent(in)	zpbl,
		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,
		integer, intent(out)	idxzb,
		real, dimension(nz), intent(out)	drmtb,
		real, intent(out)	taumtb
	)

References um_flow().

Referenced by ugwp_oro().

Here is the call graph for this function: