progcld_thompson_wsm6()

subroutine, public module_radiation_clouds::progcld_thompson_wsm6	(	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,
		real (kind=kind_phys), dimension(:,:), intent(in)	dz,
		real (kind=kind_phys), dimension(:,:), intent(in)	delp,
		integer, intent(in)	ntrac,
		integer, intent(in)	ntcw,
		integer, intent(in)	ntiw,
		integer, intent(in)	ntrw,
		integer, intent(in)	ntsw,
		integer, intent(in)	ntgl,
		real (kind=kind_phys), intent(in)	con_ttp,
		logical, intent(in)	xr_cnvcld,
		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)	cnvw,
		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(inout)	lwp_ex,
		real (kind=kind_phys), dimension(:), intent(inout)	iwp_ex,
		real (kind=kind_phys), dimension(:), intent(inout)	lwp_fc,
		real (kind=kind_phys), dimension(:), intent(inout)	iwp_fc,
		real (kind=kind_phys), dimension(:,:), intent(in)	dzlay,
		real (kind=kind_phys), dimension(ix,nlay)	cldtot,
		real (kind=kind_phys), dimension(ix,nlay)	cldcnv,
		logical, intent(in)	lcnorm,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_frac,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_lwp,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_reliq,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_iwp,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_reice,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_rwp,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_rerain,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_swp,
		real (kind=kind_phys), dimension(:,:), intent(inout)	cld_resnow )

• Include grid-mean suspended cloud condensate in Xu-Randall cloud fraction if xr_cnvcld is true:

• Compute total-cloud liquid/ice condensate path in \( g/m^2 \). The total condensate includes convective condensate.

• Sum the liquid water and ice paths that come from explicit micro

• Calculate layer cloud fraction.

Definition at line 1964 of file radiation_clouds.f.

References climit, climit2, cloud_fraction_mass_flx_2(), cloud_fraction_xurandall(), gfac, ovcst, reice_def, reliq_def, and rrain_def.

Referenced by radiation_clouds_prop().

Here is the call graph for this function:

Here is the caller graph for this function: