subroutine rrtmg_lw::cldprop ( real (kind=kind_phys), dimension(0:nlp1), intent(in)  cfrac, real (kind=kind_phys), dimension(nlay), intent(in)  cliqp, real (kind=kind_phys), dimension(nlay), intent(in)  reliq, real (kind=kind_phys), dimension(nlay), intent(in)  cicep, real (kind=kind_phys), dimension(nlay), intent(in)  reice, real (kind=kind_phys), dimension(nlay), intent(in)  cdat1, real (kind=kind_phys), dimension(nlay), intent(in)  cdat2, real (kind=kind_phys), dimension(nlay), intent(in)  cdat3, real (kind=kind_phys), dimension(nlay), intent(in)  cdat4, integer, intent(in)  nlay, integer, intent(in)  nlp1, integer, intent(in)  ipseed, real (kind=kind_phys), dimension(ngptlw,nlay), intent(out)  cldfmc, real (kind=kind_phys), dimension(nbands,nlay), intent(out)  taucld  )

private

Parameters

cfrac	layer cloud fraction — for ilwcliq > 0 (prognostic cloud scheme) - - -
cliqp	layer in-cloud liq water path ( \(g/m^2\))
reliq	mean eff radius for liq cloud (micron)
cicep	layer in-cloud ice water path ( \(g/m^2\))
reice	mean eff radius for ice cloud (micron)
cdat1	layer rain drop water path ( \(g/m^2\))
cdat2	effective radius for rain drop (micron)
cdat3	layer snow flake water path( \(g/m^2\))
cdat4	mean effective radius for snow flake(micron)
cliqp	not used
cicep	not used
reliq	not used
reice	not used
cdat1	layer cloud optical depth
cdat2	layer cloud single scattering albedo
cdat3	layer cloud asymmetry factor
cdat4	optional use
nlay	number of layer number
nlp1	number of veritcal levels
ipseed	permutation seed for generating random numbers (isubclw>0)
cldfmc	cloud fraction for each sub-column
taucld	cloud optical depth for bands (non-mcica)

cldprop General Algorithm

1. Compute cloud radiative properties for a cloudy column:
   - Compute cloud radiative properties for rain and snow (tauran,tausnw)
   - Calculation of absorption coefficients due to water clouds(tauliq)
   - Calculation of absorption coefficients due to ice clouds (tauice).
   - For prognostic cloud scheme: sum up the cloud optical property:
   \( taucld=tauice+tauliq+tauran+tausnw \)
2. if physparam::isubclw > 0, call mcica_subcol() to distribute cloud properties to each g-point.

References physparam::ilwcice, physparam::ilwcliq, physparam::isubclw, and mcica_subcol().

Referenced by rrtmg_lw_run().

Here is the call graph for this function: