CCPP Scientific Documentation
v5.0.0
radlw_main.f File Reference

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

Modules

module  rrtmg_lw
 This module contains the CCPP-compliant NCEP's modifications of the rrtm-lw radiation code from aer inc.
 

Functions/Subroutines

subroutine, public rrtmg_lw::rrtmg_lw_init ()
 
subroutine, public rrtmg_lw::rrtmg_lw_run (plyr, plvl, tlyr, tlvl, qlyr, olyr, gasvmr_co2, gasvmr_n2o, gasvmr_ch4, gasvmr_o2, gasvmr_co, gasvmr_cfc11, gasvmr_cfc12, gasvmr_cfc22, gasvmr_ccl4, icseed, aeraod, aerssa, sfemis, sfgtmp, dzlyr, delpin, de_lgth, npts, nlay, nlp1, lprnt, cld_cf, lslwr, hlwc, topflx, sfcflx, cldtau, HLW0, HLWB, FLXPRF, cld_lwp, cld_ref_liq, cld_iwp, cld_ref_ice, cld_rwp, cld_ref_rain, cld_swp, cld_ref_snow, cld_od, errmsg, errflg )
 
subroutine, public rrtmg_lw::rrtmg_lw_finalize ()
 
subroutine taugb02
 Band 2: 350-500 cm-1 (low key - h2o; high key - h2o) More...
 
subroutine taugb03
 Band 3: 500-630 cm-1 (low key - h2o,co2; low minor - n2o); (high key - h2o,co2; high minor - n2o) More...
 
subroutine taugb04
 Band 4: 630-700 cm-1 (low key - h2o,co2; high key - o3,co2) More...
 
subroutine taugb05
 Band 5: 700-820 cm-1 (low key - h2o,co2; low minor - o3, ccl4) (high key - o3,co2) More...
 
subroutine taugb06
 Band 6: 820-980 cm-1 (low key - h2o; low minor - co2) (high key - none; high minor - cfc11, cfc12) More...
 
subroutine taugb07
 Band 7: 980-1080 cm-1 (low key - h2o,o3; low minor - co2) (high key - o3; high minor - co2) More...
 
subroutine taugb08
 Band 8: 1080-1180 cm-1 (low key - h2o; low minor - co2,o3,n2o) (high key - o3; high minor - co2, n2o) More...
 
subroutine taugb09
 Band 9: 1180-1390 cm-1 (low key - h2o,ch4; low minor - n2o) (high key - ch4; high minor - n2o) More...
 
subroutine taugb10
 Band 10: 1390-1480 cm-1 (low key - h2o; high key - h2o) More...
 
subroutine taugb11
 Band 11: 1480-1800 cm-1 (low - h2o; low minor - o2) (high key - h2o; high minor - o2) More...
 
subroutine taugb12
 Band 12: 1800-2080 cm-1 (low - h2o,co2; high - nothing) More...
 
subroutine taugb13
 Band 13: 2080-2250 cm-1 (low key-h2o,n2o; high minor-o3 minor) More...
 
subroutine taugb14
 Band 14: 2250-2380 cm-1 (low - co2; high - co2) More...
 
subroutine taugb15
 Band 15: 2380-2600 cm-1 (low - n2o,co2; low minor - n2) (high - nothing) More...
 
subroutine taugb16
 Band 16: 2600-3250 cm-1 (low key- h2o,ch4; high key - ch4) More...
 
subroutine, public rrtmg_lw::rlwinit (me)
 This subroutine performs calculations necessary for the initialization of the longwave model, which includes non-varying model variables, conversion factors, and look-up tables. More...
 
subroutine rrtmg_lw::cldprop (cfrac, cliqp, reliq, cicep, reice, cdat1, cdat2, cdat3, cdat4, nlay, nlp1, ipseed, dz, de_lgth, cldfmc, taucld )
 This subroutine computes the cloud optical depth(s) for each cloudy layer and g-point interval. More...
 
subroutine rrtmg_lw::mcica_subcol (cldf, nlay, ipseed, dz, de_lgth, lcloudy )
 This suroutine computes sub-colum cloud profile flag array. More...
 
subroutine rrtmg_lw::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 rrtmg_lw::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 rrtmg_lw::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 rrtmg_lw::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...
 
subroutine rrtmg_lw::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) More...
 

Variables

character(40), parameter rrtmg_lw::vtaglw ='NCEP LW v5.1 Nov 2012 -RRTMG-LW v4.82 '
 
real(kind=kind_phys), parameter rrtmg_lw::eps = 1.0e-6
 
real(kind=kind_phys), parameter rrtmg_lw::oneminus = 1.0-eps
 
real(kind=kind_phys), parameter rrtmg_lw::cldmin = tiny(cldmin)
 
real(kind=kind_phys), parameter rrtmg_lw::bpade = 1.0/0.278
 
real(kind=kind_phys), parameter rrtmg_lw::stpfac = 296.0/1013.0
 
real(kind=kind_phys), parameter rrtmg_lw::wtdiff = 0.5
 
real(kind=kind_phys), parameter rrtmg_lw::tblint = ntbl
 
real(kind=kind_phys), parameter rrtmg_lw::f_zero = 0.0
 
real(kind=kind_phys), parameter rrtmg_lw::f_one = 1.0
 
real(kind=kind_phys), parameter rrtmg_lw::amdw = con_amd/con_amw
 
real(kind=kind_phys), parameter rrtmg_lw::amdo3 = con_amd/con_amo3
 
integer, dimension(nbands) rrtmg_lw::nspa
 
integer, dimension(nbands) rrtmg_lw::nspb
 
real(kind=kind_phys), dimension(nbands) rrtmg_lw::a0
 
real(kind=kind_phys), dimension(nbands) rrtmg_lw::a1
 
real(kind=kind_phys), dimension(nbands) rrtmg_lw::a2
 
logical rrtmg_lw::lhlwb = .false.
 
logical rrtmg_lw::lhlw0 = .false.
 
logical rrtmg_lw::lflxprf = .false.
 
real(kind=kind_phys) rrtmg_lw::fluxfac
 
real(kind=kind_phys) rrtmg_lw::heatfac
 
real(kind=kind_phys), dimension(nbands) rrtmg_lw::semiss0
 
real(kind=kind_phys), dimension(0:ntbl) rrtmg_lw::tau_tbl
 clr-sky opt dep (for cldy transfer) More...
 
real(kind=kind_phys), dimension(0:ntbl) rrtmg_lw::exp_tbl
 transmittance lookup table More...
 
real(kind=kind_phys), dimension(0:ntbl) rrtmg_lw::tfn_tbl
 tau transition function; i.e. the transition of planck func from mean lyr temp to lyr boundary temp as a func of opt dep. "linear in tau" method is used. More...
 
integer, parameter rrtmg_lw::ipsdlw0 = ngptlw