subroutine, public module_radiation_clouds::progclduni	(	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)	tvly,
		real (kind=kind_phys), dimension(:,:,:), intent(in)	ccnd,
		integer, intent(in)	ncnd,
		real (kind=kind_phys), dimension(:), intent(in)	xlat,
		real (kind=kind_phys), dimension(:), intent(in)	xlon,
		real (kind=kind_phys), dimension(:), intent(in)	slmsk,
		real (kind=kind_phys), dimension(:,:), intent(in)	dz,
		real (kind=kind_phys), dimension(:,:), intent(in)	delp,
		integer, intent(in)	IX,
		integer, intent(in)	NLAY,
		integer, intent(in)	NLP1,
		real (kind=kind_phys), dimension(:,:), intent(in)	cldtot,
		real (kind=kind_phys), dimension(:,:), intent(in)	effrl,
		real (kind=kind_phys), dimension(:,:), intent(in)	effri,
		real (kind=kind_phys), dimension(:,:), intent(in)	effrr,
		real (kind=kind_phys), dimension(:,:), intent(in)	effrs,
		logical, intent(in)	effr_in,
		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,
		real (kind=kind_phys), dimension(:), intent(out)	de_lgth
	)

Parameters

plyr	(IX,NLAY), model layer mean pressure in mb (100Pa)
plvl	(IX,NLP1), model level pressure in mb (100Pa)
tlyr	(IX,NLAY), model layer mean temperature in K
tvly	(IX,NLAY), model layer virtual temperature in K
ccnd	(IX,NLAY), layer cloud condensate amount
ncnd	number of layer cloud condensate types
xlat	(IX), grid latitude in radians, default to pi/2 -> -pi/2 range, otherwise see in-line comment
xlon	(IX), grid longitude in radians (not used)
slmsk	(IX), sea/land mask array (sea:0,land:1,sea-ice:2)
dz	(IX,NLAY), layer thickness (km)
delp	(IX,NLAY), model layer pressure thickness in mb (100Pa)
IX	horizontal dimention
NLAY,NLP1	vertical layer/level dimensions
cldtot	unified cloud fraction from moist physics
effrl	(IX,NLAY), effective radius for liquid water
effri	(IX,NLAY), effective radius for ice water
effrr	(IX,NLAY), effective radius for rain water
effrs	(IX,NLAY), effective radius for snow water
effr_in	logical - if .true. use input effective radii
clouds	(IX,NLAY,NF_CLDS), cloud profiles (:,:,1) - layer total cloud fraction (:,:,2) - layer cloud liq water path \((g/m^2)\) (:,:,3) - mean eff radius for liq cloud (micron) (:,:,4) - layer cloud ice water path \((g/m^2)\) (:,:,5) - mean eff radius for ice cloud (micron) (:,:,6) - layer rain drop water path (:,:,7) - mean eff radius for rain drop (micron) (:,:,8) - layer snow flake water path (:,:,9) - mean eff radius for snow flake (micron)
clds	(IX,5), fraction of clouds for low, mid, hi, tot, bl
mtop	(IX,3), vertical indices for low, mid, hi cloud tops
mbot	(IX,3), vertical indices for low, mid, hi cloud bases
de_lgth	(IX), clouds decorrelation length (km)

progclduni General Algorithm

1. Compute cloud liquid/ice condensate path in \( g/m^2 \) .
2. Compute effective liquid cloud droplet radius over land.
3. Compute effective ice cloud droplet radius following Heymsfield and McFarquhar (1996) [82].
4. Find top pressure for each cloud domain for given latitude.
5. Estimate clouds decorrelation length in km

• 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 climit, climit2, physcons::con_pi, physcons::con_ttp, gethml(), gfac, gord, iovr, physparam::lcnorm, physparam::lcrick, ptopc, reice_def, reliq_def, rrain_def, and rsnow_def.

Here is the call graph for this function: