subroutine, public module_radiation_clouds::progcld5	(	real (kind=kind_phys), dimension(:,:), intent(in)	plyr,
		real (kind=kind_phys), dimension(:,:), intent(in)	plvl,
		real (kind=kind_phys), dimension(:,:), intent(in)	tlyr,
		real (kind=kind_phys), dimension(:,:), intent(in)	qlyr,
		real (kind=kind_phys), dimension(:,:), intent(in)	qstl,
		real (kind=kind_phys), dimension(:,:), intent(in)	rhly,
		real (kind=kind_phys), dimension(:,:,:), intent(in)	clw,
		real (kind=kind_phys), dimension(:), intent(in)	xlat,
		real (kind=kind_phys), dimension(:), intent(in)	xlon,
		real (kind=kind_phys), dimension(:), intent(in)	slmsk,
		integer, intent(in)	ntrac,
		integer, intent(in)	ntcw,
		integer, intent(in)	ntiw,
		integer, intent(in)	ntrw,
		integer, intent(in)	ntsw,
		integer, intent(in)	ntgl,
		integer, intent(in)	IX,
		integer, intent(in)	NLAY,
		integer, intent(in)	NLP1,
		logical, intent(in)	uni_cld,
		logical, intent(in)	lmfshal,
		logical, intent(in)	lmfdeep2,
		real (kind=kind_phys), dimension(:,:), intent(in)	cldcov,
		real (kind=kind_phys), dimension(:,:), intent(in)	re_cloud,
		real (kind=kind_phys), dimension(:,:), intent(in)	re_ice,
		real (kind=kind_phys), dimension(:,:), intent(in)	re_snow,
		real (kind=kind_phys), dimension(:,:,:), intent(out)	clouds,
		real (kind=kind_phys), dimension(:,:), intent(out)	clds,
		integer, dimension(:,:), intent(out)	mtop,
		integer, dimension(:,:), intent(out)	mbot
	)

• Find top pressure for each cloud domain for given latitude. ptopc(k,i): top presure of each cld domain (k=1-4 are sfc,L,m,h; i=1,2 are low-lat (<45 degree) and pole regions)
• Compute cloud liquid/ice condensate path in \( g/m^2 \) .
• Calculate layer cloud fraction.
• Call gethml() to compute low,mid,high,total, and boundary layer cloud fractions and clouds top/bottom layer indices for low, mid, and high clouds.

References physcons::con_pi, gethml(), physparam::ivflip, and physparam::lcnorm.

Here is the call graph for this function: