Common Community Physics Package (CCPP) Scientific Documentation  Version 2.0
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: