GFS Operational Physics Documentation  gsm/branches/DTC/phys-doc-all phys-doc-all R82971

This module includes NCEP's modifications of the rrtmg-lw radiation code from AER. More...

Detailed Description

This module includes NCEP's modifications of the rrtmg-lw radiation code from AER.

The RRTM-LW package includes three files:

All the LW radiation subprograms become contained subprograms in module 'module_radlw_main' and many of them are not directly accessable from places outside the module.

Author
Eli J. Mlawer, emlaw.nosp@m.er@a.nosp@m.er.co.nosp@m.m
Jennifer S. Delamere, jdela.nosp@m.mer@.nosp@m.aer.c.nosp@m.om
Michael J. Iacono, miaco.nosp@m.no@a.nosp@m.er.co.nosp@m.m
Shepard A. Clough
Version
NCEP LW v5.1 Nov 2012 -RRTMG-LW v4.82

The authors wish to acknowledge the contributions of the following people: Steven J. Taubman, Karen Cady-Pereira, Patrick D. Brown, Ronald E. Farren, Luke Chen, Robert Bergstrom.

Collaboration diagram for module_radlw_main:

Modules

 module_radlw_kgbnn
 

Modules

module  module_radlw_avplank
 This module contains plank flux data.
 
module  module_radlw_ref
 This module contains reference temperature and pressure.
 
module  module_radlw_cldprlw
 This module contains cloud property coefficients.
 
module  module_radlw_parameters
 This module contains LW band parameters set up.
 
module  module_radsw_ref
 This module contains the reference pressures (in logarithm form) at 59 vertical levels (TOA is omitted), and the mid-latitude summer (MLS) standard temperature profile for the 59 pressure layers that are used to establish pre calculated transmission tables.
 
module  module_radsw_cldprtb
 This module contains cloud radiative property coefficients.
 
module  module_radsw_sflux
 This module contains various indexes and coefficients for SW spectral bands, as well as the spectral distribution of solar flux. The values of spectral solar flux are derived based on a prescribed solar constant ( \(1368.22 W/m^2\)). Scaling will be applied for the actual inputted solar constant value.
 

Functions/Subroutines

subroutine, public module_radlw_main::rlwinit (me)
 This subroutine performs calculations necessary for the initialization of the longwave model. lookup tables are computed for use in the lw radiative transfer, and input absorption coefficient data for each spectral band are reduced from 256 g-point intervals to 140. More...
 
subroutine module_radlw_main::mcica_subcol (cldf, nlay, ipseed, lcloudy )
 This suroutine computes sub-colum cloud profile flag array. More...
 
subroutine module_radlw_main::setcoef (pavel, tavel, tz, stemp, h2ovmr, colamt, coldry, colbrd, nlay, nlp1, laytrop, pklay, pklev, jp, jt, jt1, rfrate, fac00, fac01, fac10, fac11, selffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor )
 This subroutine computes various coefficients needed in radiative transfer calculations. More...
 
subroutine module_radlw_main::rtrn (semiss, delp, cldfrc, taucld, tautot, pklay, pklev, fracs, secdif, nlay, nlp1, totuflux, totdflux, htr, totuclfl, totdclfl, htrcl, htrb )
 This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere. Clouds assumed as randomly overlaping in a vertical column. More...
 
subroutine module_radlw_main::taumol (laytrop, pavel, coldry, colamt, colbrd, wx, tauaer, rfrate, fac00, fac01, fac10, fac11, jp, jt, jt1, selffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor, nlay, fracs, tautot )
 This subroutine contains optical depths developed for the rapid radiative transfer model. More...
 
subroutine taugb01
 band 1: 10-350 cm-1 (low key - h2o; low minor - n2); (high key - h2o; high minor - n2)
 

Variables

real(kind=kind_phys), parameter module_radlw_main::eps = 1.0e-6
 
real(kind=kind_phys), parameter module_radlw_main::oneminus = 1.0-eps
 
real(kind=kind_phys), parameter module_radlw_main::cldmin = 1.0e-80
 
real(kind=kind_phys), parameter module_radlw_main::bpade = 1.0/0.278
 
real(kind=kind_phys), parameter module_radlw_main::stpfac = 296.0/1013.0
 
real(kind=kind_phys), parameter module_radlw_main::wtdiff = 0.5
 
real(kind=kind_phys), parameter module_radlw_main::tblint = ntbl
 
real(kind=kind_phys), parameter module_radlw_main::f_zero = 0.0
 
real(kind=kind_phys), parameter module_radlw_main::f_one = 1.0
 
real(kind=kind_phys), parameter module_radlw_main::amdw = con_amd/con_amw
 
real(kind=kind_phys), parameter module_radlw_main::amdo3 = con_amd/con_amo3
 
integer, dimension(nbands) module_radlw_main::nspa
 
integer, dimension(nbands) module_radlw_main::nspb
 
real(kind=kind_phys), dimension(nbands) module_radlw_main::a0
 
real(kind=kind_phys), dimension(nbands) module_radlw_main::a1
 
real(kind=kind_phys), dimension(nbands) module_radlw_main::a2
 
logical module_radlw_main::lhlwb = .false.
 
logical module_radlw_main::lhlw0 = .false.
 
logical module_radlw_main::lflxprf = .false.
 
real(kind=kind_phys) module_radlw_main::fluxfac
 
real(kind=kind_phys) module_radlw_main::heatfac
 
real(kind=kind_phys), dimension(nbands) module_radlw_main::semiss0
 
real(kind=kind_phys), dimension(0:ntbl) module_radlw_main::tau_tbl
 
real(kind=kind_phys), dimension(0:ntbl) module_radlw_main::exp_tbl
 
real(kind=kind_phys), dimension(0:ntbl) module_radlw_main::tfn_tbl
 
integer, parameter module_radlw_main::ipsdlw0 = ngptlw
 
subroutine, public module_radlw_main::lwrad (plyr, plvl, tlyr, tlvl, qlyr, olyr, gasvmr, clouds, icseed, aerosols, sfemis, sfgtmp, npts, nlay, nlp1, lprnt, hlwc, topflx, sfcflx, HLW0, HLWB, FLXPRF )
 This subroutine is the main LW radiation routine. More...
 
subroutine module_radlw_main::cldprop (cfrac, cliqp, reliq, cicep, reice, cdat1, cdat2, cdat3, cdat4, nlay, nlp1, ipseed, cldfmc, taucld )
 This subroutine computes the cloud optical depth(s) for each cloudy layer and g-point interval. More...
 
subroutine module_radlw_main::rtrnmr (semiss, delp, cldfrc, taucld, tautot, pklay, pklev, fracs, secdif, nlay, nlp1, totuflux, totdflux, htr, totuclfl, totdclfl, htrcl, htrb )
 This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere. Clouds are assumed as in maximum-randomly overlaping in a vertical column. More...
 
subroutine module_radlw_main::rtrnmc (semiss, delp, cldfmc, taucld, tautot, pklay, pklev, fracs, secdif, nlay, nlp1, totuflux, totdflux, htr, totuclfl, totdclfl, htrcl, htrb )
 This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere.Clouds are treated with the mcica stochastic approach. More...
 

Function/Subroutine Documentation

subroutine module_radlw_main::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

This subroutine computes the cloud optical depth(s) for each cloudy layer and g-point interval.

Parameters
cfraclayer cloud fraction
— for ilwcliq > 0 (prognostic cloud scheme) - - -
cliqplayer in-cloud liq water path ( \(g/m^2\))
reliqmean eff radius for liq cloud (micron)
ciceplayer in-cloud ice water path ( \(g/m^2\))
reicemean eff radius for ice cloud (micron)
cdat1layer rain drop water path ( \(g/m^2\))
cdat2effective radius for rain drop (micron)
cdat3layer snow flake water path( \(g/m^2\))
cdat4mean effective radius for snow flake(micron)
— for ilwcliq = 0 (diagnostic cloud scheme) - - -
cliqpnot used
cicepnot used
reliqnot used
reicenot used
cdat1layer cloud optical depth
cdat2layer cloud single scattering albedo
cdat3layer cloud asymmetry factor
cdat4optional use
nlaynumber of layer number
nlp1number of veritcal levels
ipseedpermutation seed for generating random numbers (isubclw>0)
cldfmccloud fraction for each sub-column
taucldcloud optical depth for bands (non-mcica)

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.

Definition at line 1491 of file radlw_main.f.

References module_radlw_cldprlw::absice1, module_radlw_cldprlw::absice2, module_radlw_cldprlw::absice3, module_radlw_cldprlw::absliq1, module_radlw_cldprlw::absrain, module_radlw_cldprlw::abssnow0, physparam::ilwcice, physparam::ilwcliq, module_radlw_cldprlw::ipat, physparam::isubclw, mcica_subcol(), module_radlw_parameters::nbands, and module_radlw_parameters::ngptlw.

Referenced by lwrad().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine, public module_radlw_main::lwrad ( real (kind=kind_phys), dimension(npts,nlay), intent(in)  plyr,
real (kind=kind_phys), dimension(npts,nlp1), intent(in)  plvl,
real (kind=kind_phys), dimension(npts,nlay), intent(in)  tlyr,
real (kind=kind_phys), dimension(npts,nlp1), intent(in)  tlvl,
real (kind=kind_phys), dimension(npts,nlay), intent(in)  qlyr,
real (kind=kind_phys), dimension(npts,nlay), intent(in)  olyr,
real (kind=kind_phys), dimension(npts,nlay,9), intent(in)  gasvmr,
real (kind=kind_phys), dimension(npts,nlay,9), intent(in)  clouds,
integer, dimension(npts), intent(in)  icseed,
real (kind=kind_phys), dimension(npts,nlay,nbands,3), intent(in)  aerosols,
real (kind=kind_phys), dimension(npts), intent(in)  sfemis,
real (kind=kind_phys), dimension(npts), intent(in)  sfgtmp,
integer, intent(in)  npts,
integer, intent(in)  nlay,
integer, intent(in)  nlp1,
logical, intent(in)  lprnt,
real (kind=kind_phys), dimension(npts,nlay), intent(out)  hlwc,
type (topflw_type), dimension(npts), intent(out)  topflx,
type (sfcflw_type), dimension(npts), intent(out)  sfcflx,
real (kind=kind_phys), dimension(npts,nlay), intent(out), optional  HLW0,
real (kind=kind_phys), dimension(npts,nlay,nbands), intent(out), optional  HLWB,
type (proflw_type), dimension(npts,nlp1), intent(out), optional  FLXPRF 
)

This subroutine is the main LW radiation routine.

Parameters
plyrmodel layer mean pressure in mb
plvlmodel interface pressure in mb
tlyrmodel layer mean temperature in K
tlvlmodel interface temperature in K
qlyrlayer specific humidity in gm/gm
olyrlayer ozone concentration in gm/gm
gasvmratmospheric gases amount:
(:,:,1) - co2 volume mixing ratio
(:,:,2) - n2o volume mixing ratio
(:,:,3) - ch4 volume mixing ratio
(:,:,4) - o2 volume mixing ratio
(:,:,5) - co volume mixing ratio
(:,:,6) - cfc11 volume mixing ratio
(:,:,7) - cfc12 volume mixing ratio
(:,:,8) - cfc22 volume mixing ratio
(:,:,9) - ccl4 volume mixing ratio
cloudslayer cloud profile
for ilwcliq > 0 —
(:,:,1) - layer total cloud fraction
(:,:,2) - layer in-cloud liq water path ( \( g/m^2 \))
(:,:,3) - mean eff radius for liq cloud (micron)
(:,:,4) - layer in-cloud ice water path ( \( g/m^2 \))
(:,:,5) - mean eff radius for ice cloud (micron)
(:,:,6) - layer rain drop water path ( \( g/m^2 \))
(:,:,7) - mean eff radius for rain drop (micron)
(:,:,8) - layer snow flake water path ( \( g/m^2 \))
(:,:,9) - mean eff radius for snow flake(micron)
for ilwcliq = 0 —
(:,:,1) - layer total cloud fraction
(:,:,2) - layer cloud optical depth
(:,:,3) - layer cloud single scattering albedo
(:,:,4) - layer cloud asymmetry factor
icseedauxiliary special cloud related array.
aerosolsaerosol optical properties
(:,:,:,1) - optical depth
(:,:,:,2) - single scattering albedo
(:,:,:,3) - asymmetry parameter
sfemissurface emissivity
sfgtmpsurface ground temperature in K
nptstotal number of horizontal points
nlay,nlp1total number of vertical layers, levels
lprntcntl flag for diagnostic print out
hlwctotal sky heating rate in k/day or k/sec
topflxradiation fluxes at top, components
upfxc - total sky upward flux at top ( \( w/m^2 \))
upfx0 - clear sky upward flux at top ( \( w/m^2 \))
sfcflxradiation fluxes at sfc, components
upfxc - total sky upward flux at sfc ( \( w/m^2 \))
dnfxc - total sky downward flux at sfc ( \( w/m^2 \))
upfx0 - clear sky upward flux at sfc ( \( w/m^2 \))
dnfx0 - clear sky downward flux at sfc ( \( w/m^2 \))
hlwbspectral band total sky heating rates
hlw0clear sky heating rates (k/sec or k/day)
flxprflevel radiation fluxes ( \( w/m^2 \)), components
dnfxc - total sky downward flux
upfxc - total sky upward flux
dnfx0 - clear sky downward flux
upfx0 - clear sky upward flux

General Algorithm

  1. Change random number seed value for each radiation invocation (isubclw =1 or 2).
  2. Read surface emissivity.
  3. Prepare atmospheric profile for use in rrtm.
  4. Set absorber amount for h2o, co2, and o3.
  5. Set up column amount for rare gases n2o,ch4,o2,co,ccl4,cf11,cf12, cf22, convert from volume mixing ratio to molec/cm2 based on coldry (scaled to 1.0e-20).
  6. Set aerosol optical properties.
  7. Read cloud optical properties
  8. Compute precipitable water vapor for diffusivity angle adjustments.
  9. Compute column amount for broadening gases.
  10. Compute diffusivity angle adjustments.
  11. For cloudy atmosphere, call cldprop() to set cloud optical properties.
  12. Calling setcoef() to compute various coefficients needed in radiative transfer calculations.
  13. Call taumol() to calculte the gaseous optical depths and Plank fractions for each longwave spectral band.
  14. Call the radiative transfer routine based on cloud scheme selection. Compute the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere.
    - call rtrn(): clouds are assumed as randomly overlaping in a vertical column
    - call rtrnmr(): clouds are assumed as in maximum-randomly overlaping in a vertical column;
    - call rtrnmc(): clouds are treated with the mcica stochastic approach.
  15. Save outputs.

Definition at line 461 of file radlw_main.f.

References cldprop(), physcons::con_amd, physcons::con_amw, physcons::con_avgd, physcons::con_g, physparam::ilwcliq, physparam::ilwrgas, physparam::iovrlw, physparam::isubclw, physparam::ivflip, module_radlw_parameters::maxgas, module_radlw_parameters::nbands, rtrn(), rtrnmc(), rtrnmr(), setcoef(), and taumol().

Referenced by module_radiation_driver::grrad().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine module_radlw_main::mcica_subcol ( real (kind=kind_phys), dimension(nlay), intent(in)  cldf,
integer, intent(in)  nlay,
integer, intent(in)  ipseed,
logical, dimension(ngptlw,nlay), intent(out)  lcloudy 
)
private

This suroutine computes sub-colum cloud profile flag array.

Parameters
cldflayer cloud fraction
nlaynumber of model vertical layers
ipseedpermute seed for random num generator
lcloudysub-colum cloud profile flag array

Definition at line 1798 of file radlw_main.f.

References physparam::iovrlw, and module_radlw_parameters::ngptlw.

Referenced by cldprop().

Here is the caller graph for this function:

subroutine, public module_radlw_main::rlwinit ( integer, intent(in)  me)

This subroutine performs calculations necessary for the initialization of the longwave model. lookup tables are computed for use in the lw radiative transfer, and input absorption coefficient data for each spectral band are reduced from 256 g-point intervals to 140.

Parameters
meprint control for parallel process

Definition at line 1263 of file radlw_main.f.

References physcons::con_cp, physcons::con_g, physparam::icldflg, physparam::ilwcliq, physparam::ilwrate, physparam::ilwrgas, physparam::iovrlw, physparam::isubclw, and module_radlw_parameters::ntbl.

Referenced by module_radiation_driver::radinit().

Here is the caller graph for this function:

subroutine module_radlw_main::rtrn ( real (kind=kind_phys), dimension(nbands), intent(in)  semiss,
real (kind=kind_phys), dimension(nlay), intent(in)  delp,
real (kind=kind_phys), dimension(0:nlp1), intent(in)  cldfrc,
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

This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere. Clouds assumed as randomly overlaping in a vertical column.

Original Code Description: this program calculates the upward fluxes, downward fluxes, and heating rates for an arbitrary clear or cloudy atmosphere. The input to this program is the atmospheric profile, all Planck function information, and the cloud fraction by layer. A variable diffusivity angle (secdif) is used for the angle integration. Bands 2-3 and 5-9 use a value for secdif that varies from 1.50 to 1.80 as a function of the column water vapor, and other bands use a value of 1.66. The gaussian weight appropriate to this angle (wtdiff =0.5) is applied here. Note that use of the emissivity angle for the flux integration can cause errors of 1 to 4 \(W/m^2\) within cloudy layers. Clouds are treated with a random cloud overlap method.

Parameters
semisslw surface emissivity
delplayer pressure thickness (mb)
cldfrclayer cloud fraction
taucldlayer cloud opt depth
tautottotal optical depth (gas+aerosols)
pklayintegrated planck function 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)
  1. Downward radiative transfer loop.
  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.
  6. Process longwave output from band for total and clear streams. Calculate upward, downward, and net flux.

Definition at line 2289 of file radlw_main.f.

References module_radlw_parameters::nbands, module_radlw_parameters::ngb, and module_radlw_parameters::ngptlw.

Referenced by lwrad().

Here is the caller graph for this function:

subroutine module_radlw_main::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

This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere.Clouds are treated with the mcica stochastic approach.

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)

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.

Definition at line 3265 of file radlw_main.f.

References module_radlw_parameters::nbands, module_radlw_parameters::ngb, and module_radlw_parameters::ngptlw.

Referenced by lwrad().

Here is the caller graph for this function:

subroutine module_radlw_main::rtrnmr ( real (kind=kind_phys), dimension(nbands), intent(in)  semiss,
real (kind=kind_phys), dimension(nlay), intent(in)  delp,
real (kind=kind_phys), dimension(0:nlp1), intent(in)  cldfrc,
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

This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere. Clouds are assumed as in maximum-randomly overlaping in a vertical column.

Parameters
semisslw surface emissivity
delplayer pressure thickness (mb)
cldfrclayer cloud fraction
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)

General Algorithm

  1. Setup maximum/random cloud overlap.
  2. Initialize for radiative transfer
  3. Downward radiative transfer loop:
    • cloudy layer
    • total sky radiance
    • clear sky radiance
  4. Compute spectral emissivity & reflectance, include the contribution of spectrally varying longwave emissivity and reflection from the surface to the upward radiative transfer.
  5. Compute total sky radiance.
  6. Compute clear sky radiance.
  7. Upward radiative transfer loop:
    • cloudy layer radiance
    • total sky radiance
    • clear sky radiance
  8. Process longwave output from band for total and clear streams. calculate upward, downward, and net flux.

Definition at line 2672 of file radlw_main.f.

References module_radlw_parameters::nbands, module_radlw_parameters::ngb, and module_radlw_parameters::ngptlw.

Referenced by lwrad().

Here is the caller graph for this function:

subroutine module_radlw_main::setcoef ( real (kind=kind_phys), dimension(nlay), intent(in)  pavel,
real (kind=kind_phys), dimension(nlay), intent(in)  tavel,
real (kind=kind_phys), dimension(0:nlay), intent(in)  tz,
real (kind=kind_phys), intent(in)  stemp,
real (kind=kind_phys), dimension(nlay), intent(in)  h2ovmr,
real (kind=kind_phys), dimension(nlay,maxgas), intent(in)  colamt,
real (kind=kind_phys), dimension(nlay), intent(in)  coldry,
real (kind=kind_phys), dimension(nlay), intent(in)  colbrd,
integer, intent(in)  nlay,
integer, intent(in)  nlp1,
integer, intent(out)  laytrop,
real (kind=kind_phys), dimension(nbands,0:nlay), intent(out)  pklay,
real (kind=kind_phys), dimension(nbands,0:nlay), intent(out)  pklev,
integer, dimension(nlay), intent(out)  jp,
integer, dimension(nlay), intent(out)  jt,
integer, dimension(nlay), intent(out)  jt1,
real (kind=kind_phys), dimension(nlay,nrates,2), intent(out)  rfrate,
real (kind=kind_phys), dimension(nlay), intent(out)  fac00,
real (kind=kind_phys), dimension(nlay), intent(out)  fac01,
real (kind=kind_phys), dimension(nlay), intent(out)  fac10,
real (kind=kind_phys), dimension(nlay), intent(out)  fac11,
real (kind=kind_phys), dimension(nlay), intent(out)  selffac,
real (kind=kind_phys), dimension(nlay), intent(out)  selffrac,
integer, dimension(nlay), intent(out)  indself,
real (kind=kind_phys), dimension(nlay), intent(out)  forfac,
real (kind=kind_phys), dimension(nlay), intent(out)  forfrac,
integer, dimension(nlay), intent(out)  indfor,
real (kind=kind_phys), dimension(nlay), intent(out)  minorfrac,
real (kind=kind_phys), dimension(nlay), intent(out)  scaleminor,
real (kind=kind_phys), dimension(nlay), intent(out)  scaleminorn2,
integer, dimension(nlay), intent(out)  indminor 
)
private

This subroutine computes various coefficients needed in radiative transfer calculations.

Parameters
pavellayer pressure (mb)
tavellayer temperature (K)
tzlevel(interface) temperatures (K)
stempsurface ground temperature (K)
h2ovmrlayer w.v. volumn mixing ratio (kg/kg)
colamtcolumn amounts of absorbing gases. 2nd indices range: 1-maxgas, for watervapor,carbon dioxide, ozone, nitrous oxide, methane,oxigen, carbon monoxide,etc. \((mol/cm^2)\)
coldrydry air column amount
colbrdcolumn amount of broadening gases
nlaytotal number of vertical layers
nlp1total number of vertical levels
laytroptropopause layer index (unitless)
pklayintegrated planck func at lay temp
pklevintegrated planck func at lev temp
jpindices of lower reference pressure
jt,jt1indices of lower reference temperatures
rfrateref ratios of binary species param
(:,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
facijfactors multiply the reference ks, i,j=0/1 for lower/higher of the 2 appropriate temperatures and altitudes.
selffacscale factor for w. v. self-continuum equals (w. v. density)/(atmospheric density at 296k and 1013 mb)
selffracfactor for temperature interpolation of reference w. v. self-continuum data
indselfindex of lower ref temp for selffac
forfacscale factor for w. v. foreign-continuum
forfracfactor for temperature interpolation of reference w.v. foreign-continuum data
indforindex of lower ref temp for forfac
minorfracfactor for minor gases
scaleminor,scaleminorn2scale factors for minor gases
indminorindex of lower ref temp for minor gases

Definition at line 1998 of file radlw_main.f.

References module_radlw_parameters::nbands, and module_radlw_avplank::totplnk.

Referenced by lwrad().

Here is the caller graph for this function:

subroutine module_radlw_main::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

This subroutine contains optical depths developed for the rapid radiative transfer model.

This file 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
facijfactors 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)

Definition at line 3682 of file radlw_main.f.

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 lwrad().

Here is the call graph for this function:

Here is the caller graph for this function: