topdown_cloudrad()

subroutine module_bl_mynn::topdown_cloudrad	(	integer, intent(in)	kts,
		integer, intent(in)	kte,
		real, dimension(kts:kte), intent(in)	dz1,
		real, dimension(kts:kte+1), intent(in)	zw,
		real, intent(in)	xland,
		integer, intent(in)	kpbl,
		real, intent(in)	PBLH,
		real, dimension(kts:kte), intent(in)	sqc,
		real, dimension(kts:kte), intent(in)	sqi,
		real, dimension(kts:kte), intent(in)	sqw,
		real, dimension(kts:kte), intent(in)	thl,
		real, dimension(kts:kte), intent(in)	th1,
		real, dimension(kts:kte), intent(in)	ex1,
		real, dimension(kts:kte), intent(in)	p1,
		real, dimension(kts:kte), intent(in)	rho1,
		real, dimension(kts:kte), intent(in)	thetav,
		real, dimension(kts:kte), intent(in)	cldfra_bl1D,
		real, dimension(kts:kte), intent(in)	rthraten,
		real, intent(out)	maxKHtopdown,
		real, dimension(kts:kte), intent(out)	KHtopdown,
		real, dimension(kts:kte), intent(out)	TKEprodTD
	)