subroutine rrtmg_lw::rtrnmc ( real (kind=kind_phys), dimension(nbands), intent(in)  semiss, real (kind=kind_phys), dimension(nlay), intent(in)  delp, real (kind=kind_phys), dimension(ngptlw,nlay), intent(in)  cldfmc, real (kind=kind_phys), dimension(nbands,nlay), intent(in)  taucld, real (kind=kind_phys), dimension(ngptlw,nlay), intent(in)  tautot, real (kind=kind_phys), dimension(nbands,0:nlay), intent(in)  pklay, real (kind=kind_phys), dimension(nbands,0:nlay), intent(in)  pklev, real (kind=kind_phys), dimension(ngptlw,nlay), intent(in)  fracs, real (kind=kind_phys), dimension(nbands), intent(in)  secdif, integer, intent(in)  nlay, integer, intent(in)  nlp1, real (kind=kind_phys), dimension(0:nlay), intent(out)  totuflux, real (kind=kind_phys), dimension(0:nlay), intent(out)  totdflux, real (kind=kind_phys), dimension(nlay), intent(out)  htr, real (kind=kind_phys), dimension(0:nlay), intent(out)  totuclfl, real (kind=kind_phys), dimension(0:nlay), intent(out)  totdclfl, real (kind=kind_phys), dimension(nlay), intent(out)  htrcl, real (kind=kind_phys), dimension(nlay,nbands), intent(out)  htrb  )

private

Parameters

semiss	lw surface emissivity
delp	layer pressure thickness (mb)
cldfmc	layer cloud fraction (sub-column)
taucld	layer cloud opt depth
tautot	total optical depth (gas+aerosols)
pklay	integrated planck func at lay temp
pklev	integrated planck func at lev temp
fracs	planck fractions
secdif	secant of diffusivity angle
nlay	number of vertical layers
nlp1	number of vertical levels (interfaces)
totuflux	total sky upward flux \((w/m^2)\)
totdflux	total sky downward flux \((w/m^2)\)
htr	total sky heating rate (k/sec or k/day)
totuclfl	clear sky upward flux \((w/m^2)\)
totdclfl	clear sky downward flux \((w/m^2)\)
htrcl	clear sky heating rate (k/sec or k/day)
htrb	spectral band lw heating rate (k/day)

rtrnmc General Algorithm

1. Downward radiative transfer loop.
   - Clear sky, gases contribution
   - Total sky, gases+clouds contribution
   - Cloudy layer
   - Total sky radiance
   - Clear sky radiance
2. Compute spectral emissivity & reflectance, include the contribution of spectrally varying longwave emissivity and reflection from the surface to the upward radiative transfer.
3. Compute total sky radiance.
4. Compute clear sky radiance.
5. Upward radiative transfer loop.
   - Compute total sky radiance
   - Compute clear sky radiance
6. Process longwave output from band for total and clear streams. Calculate upward, downward, and net flux.
7. Calculate net fluxes and heating rates.
8. Optional clear sky heating rates.
9. Optional spectral band heating rates.

References bpade, eps, exp_tbl, f_one, f_zero, fluxfac, heatfac, lhlw0, lhlwb, module_radlw_parameters::nbands, module_radlw_parameters::ngb, module_radlw_parameters::ngptlw, tau_tbl, tblint, tfn_tbl, and wtdiff.

Referenced by rrtmg_lw_run().