subroutine rrtmg_lw::mcica_subcol ( real (kind=kind_phys), dimension(nlay), intent(in)  cldf, integer, intent(in)  nlay, integer, intent(in)  ipseed, real (kind=kind_phys), dimension(nlay), intent(in)  dz, real (kind=kind_phys), intent(in)  de_lgth, logical, dimension(ngptlw,nlay), intent(out)  lcloudy  )

private

Parameters

cldf	layer cloud fraction
nlay	number of model vertical layers
ipseed	permute seed for random num generator
dz	layer thickness
de_lgth	layer cloud decorrelation length (km)
lcloudy	sub-colum cloud profile flag array

mcica_subcol General Algorithm

1. Call random_setseed() to advance randum number generator by ipseed values.
2. Sub-column set up according to overlapping assumption:
   • For random overlap, pick a random value at every level
   • For max-random overlap, pick a random value at every level
   • For maximum overlap, pick same random numebr at every level
3. Generate subcolumns for homogeneous clouds.

References f_one, physparam::iovrlw, and module_radlw_parameters::ngptlw.

Referenced by cldprop().