CCPP Scientific Documentation
v5.0.0
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
semisslw surface emissivity
delplayer pressure thickness (mb)
cldfmclayer cloud fraction (sub-column)
taucldlayer cloud opt depth
tautottotal optical depth (gas+aerosols)
pklayintegrated planck func at lay temp
pklevintegrated planck func at lev temp
fracsplanck fractions
secdifsecant of diffusivity angle
nlaynumber of vertical layers
nlp1number of vertical levels (interfaces)
totufluxtotal sky upward flux \((w/m^2)\)
totdfluxtotal sky downward flux \((w/m^2)\)
htrtotal sky heating rate (k/sec or k/day)
totuclflclear sky upward flux \((w/m^2)\)
totdclflclear sky downward flux \((w/m^2)\)
htrclclear sky heating rate (k/sec or k/day)
htrbspectral 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().