progcld_thompson()

subroutine, public module_radiation_clouds::progcld_thompson	(	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,
		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(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(:), intent(in)	gridkm,
		logical, intent(in)	top_at_1,
		real (kind=kind_phys), dimension(ix,nlay)	cldtot,
		real (kind=kind_phys), dimension(ix,nlay)	cldcnv,
		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 )

• Compute cloud liquid/ice condensate path in \( g/m^2 \) .
• Since using Thompson MP, assume 1 percent of snow is actually in ice sizes.

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

• Now determine the cloud fraction. Here, we will use the scheme of G. Thompson that implements a variannt of Mocko and Cotton (1995) based on work within HWRF and WRF. Where the bulk microphysics scheme already has explicit clouds, assume cloud fraction of one, but, otherwise, use a Sundqvist et al (1989) scheme and RH-critical to account for sub-grid-scale clouds, include those in the water and ice paths seen by the radiation scheme, but do not actually include these fake clouds into anything other than radiation.

• Sum the liquid water and ice paths that come from fractional clouds

Definition at line 2282 of file radiation_clouds.f.

References cal_cldfra3(), ovcst, retab, and rrain_def.

Referenced by radiation_clouds_prop().

Here is the call graph for this function:

Here is the caller graph for this function: