CCPP Scientific Documentation
v5.0.0
subroutine rrtmg_lw::taumol ( integer, intent(in)  laytrop,
real (kind=kind_phys), dimension(nlay), intent(in)  pavel,
real (kind=kind_phys), dimension(nlay), intent(in)  coldry,
real (kind=kind_phys), dimension(nlay,maxgas), intent(in)  colamt,
real (kind=kind_phys), dimension(nlay), intent(in)  colbrd,
real (kind=kind_phys), dimension(nlay,maxxsec), intent(in)  wx,
real (kind=kind_phys), dimension(nbands,nlay), intent(in)  tauaer,
real (kind=kind_phys), dimension(nlay,nrates,2), intent(in)  rfrate,
real (kind=kind_phys), dimension(nlay), intent(in)  fac00,
real (kind=kind_phys), dimension(nlay), intent(in)  fac01,
real (kind=kind_phys), dimension(nlay), intent(in)  fac10,
real (kind=kind_phys), dimension(nlay), intent(in)  fac11,
integer, dimension(nlay), intent(in)  jp,
integer, dimension(nlay), intent(in)  jt,
integer, dimension(nlay), intent(in)  jt1,
real (kind=kind_phys), dimension(nlay), intent(in)  selffac,
real (kind=kind_phys), dimension(nlay), intent(in)  selffrac,
integer, dimension(nlay), intent(in)  indself,
real (kind=kind_phys), dimension(nlay), intent(in)  forfac,
real (kind=kind_phys), dimension(nlay), intent(in)  forfrac,
integer, dimension(nlay), intent(in)  indfor,
real (kind=kind_phys), dimension(nlay), intent(in)  minorfrac,
real (kind=kind_phys), dimension(nlay), intent(in)  scaleminor,
real (kind=kind_phys), dimension(nlay), intent(in)  scaleminorn2,
integer, dimension(nlay), intent(in)  indminor,
integer, intent(in)  nlay,
real (kind=kind_phys), dimension(ngptlw,nlay), intent(out)  fracs,
real (kind=kind_phys), dimension(ngptlw,nlay), intent(out)  tautot 
)
private

It contains the subroutines taugbn (where n goes from 1 to 16). taugbn calculates the optical depths and planck fractions per g-value and layer for band n.

Parameters
laytroptropopause layer index (unitless) layer at which switch is made for key species
pavellayer pressures (mb)
coldrycolumn amount for dry air \((mol/cm^2)\)
colamtcolumn amounts of h2o, co2, o3, n2o, ch4,o2, co \((mol/cm^2)\)
colbrdcolumn amount of broadening gases
wxcross-section amounts \((mol/cm^2)\)
tauaeraerosol optical depth
rfratereference ratios of binary species parameter
(:,m,:)m=1-h2o/co2,2-h2o/o3,3-h2o/n2o,4-h2o/ch4, 5-n2o/co2,6-o3/co2
(:,:,n)n=1,2: the rates of ref press at the 2 sides of the layer
fac00,fac01,fac10,fac11factors multiply the reference ks, i,j of 0/1 for lower/higher of the 2 appropriate temperatures and altitudes
jpindex of lower reference pressure
jt,jt1indices of lower reference temperatures for pressure levels jp and jp+1, respectively
selffacscale factor for water vapor self-continuum equals (water vapor density)/(atmospheric density at 296k and 1013 mb)
selffracfactor for temperature interpolation of reference water vapor self-continuum data
indselfindex of lower reference temperature for the self-continuum interpolation
forfacscale factor for w. v. foreign-continuum
forfracfactor for temperature interpolation of reference w.v. foreign-continuum data
indforindex of lower reference temperature for the foreign-continuum interpolation
minorfracfactor for minor gases
scaleminor,scaleminorn2scale factors for minor gases
indminorindex of lower reference temperature for minor gases
nlaytotal number of layers
fracsplanck fractions
tautottotal optical depth (gas+aerosols)

taumol General Algorithm

subprograms called: taugb## (## = 01 -16)

References module_radlw_parameters::ngb, module_radlw_parameters::ngptlw, taugb01(), taugb02(), taugb03(), taugb04(), taugb05(), taugb06(), taugb07(), taugb08(), taugb09(), taugb10(), taugb11(), taugb12(), taugb13(), taugb14(), taugb15(), and taugb16().

Referenced by rrtmg_lw_run().

Here is the call graph for this function: