cldprop()

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(nlay), intent(in)  dz, real (kind=kind_phys), intent(in)  de_lgth, integer, intent(in)  iovr, real (kind=kind_phys), dimension(nlay), intent(in)  alpha, 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
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)
nlay	number of layer number
nlp1	number of veritcal levels
ipseed	permutation seed for generating random numbers (isubclw>0)
dz	layer thickness (km)
de_lgth	layer cloud decorrelation length (km)
iovr	cloud overlapping control flag
alpha	EXP/ER cloud overlap decorrelation parameter
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 mcica_subcol().

Referenced by rrtmg_lw_run().

Here is the call graph for this function:

Here is the caller graph for this function: