subroutine module_radiation_clouds::gethml ( real (kind=kind_phys), dimension(:,:), intent(in)  plyr, real (kind=kind_phys), dimension(:,:), intent(in)  ptop1, real (kind=kind_phys), dimension(:,:), intent(in)  cldtot, real (kind=kind_phys), dimension(:,:), intent(in)  cldcnv, integer, intent(in)  IX, integer, intent(in)  NLAY, real (kind=kind_phys), dimension(:,:), intent(out)  clds, integer, dimension(:,:), intent(out)  mtop, integer, dimension(:,:), intent(out)  mbot  )

private

Parameters

plyr	(IX,NLAY), model layer mean pressure in mb (100Pa)
ptop1	(IX,4), pressure limits of cloud domain interfaces (sfc,low,mid,high) in mb (100Pa)
cldtot	(IX,NLAY), total or stratiform cloud profile in fraction
cldcnv	(IX,NLAY), convective cloud (for diagnostic scheme only)
IX	horizontal dimension
NLAY	vertical layer dimensions
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

gethml General Algorithm

1. Calculate total and BL cloud fractions (maximum-random cloud overlapping is operational).
2. Calculte high, mid, low cloud fractions and vertical indices of cloud tops/bases.

References physparam::ivflip.

Referenced by diagcld1(), progcld1(), progcld2(), progcld3(), progcld4(), progcld4o(), progcld5(), and progclduni().