GFS Operational Physics Documentation  Revision: 81451
radlw_main.f File Reference

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

Functions/Subroutines

subroutine, public module_radlw_main::rlwinit
 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
 This suroutine computes sub-colum cloud profile flag array. More...
 
subroutine module_radlw_main::setcoef
 This subroutine computes various coefficients needed in radiative transfer calculations. More...
 
subroutine module_radlw_main::rtrn
 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
 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)
 
subroutine taugb02
 Band 2: 350-500 cm-1 (low key - h2o; high key - h2o)
 
subroutine taugb03
 Band 3: 500-630 cm-1 (low key - h2o,co2; low minor - n2o); (high key - h2o,co2; high minor - n2o)
 
subroutine taugb04
 Band 4: 630-700 cm-1 (low key - h2o,co2; high key - o3,co2)
 
subroutine taugb05
 Band 5: 700-820 cm-1 (low key - h2o,co2; low minor - o3, ccl4) (high key - o3,co2)
 
subroutine taugb06
 Band 6: 820-980 cm-1 (low key - h2o; low minor - co2) (high key - none; high minor - cfc11, cfc12)
 
subroutine taugb07
 Band 7: 980-1080 cm-1 (low key - h2o,o3; low minor - co2) (high key - o3; high minor - co2)
 
subroutine taugb08
 Band 8: 1080-1180 cm-1 (low key - h2o; low minor - co2,o3,n2o) (high key - o3; high minor - co2, n2o)
 
subroutine taugb09
 Band 9: 1180-1390 cm-1 (low key - h2o,ch4; low minor - n2o) (high key - ch4; high minor - n2o)
 
subroutine taugb10
 Band 10: 1390-1480 cm-1 (low key - h2o; high key - h2o)
 
subroutine taugb11
 Band 11: 1480-1800 cm-1 (low - h2o; low minor - o2) (high key - h2o; high minor - o2)
 
subroutine taugb12
 Band 12: 1800-2080 cm-1 (low - h2o,co2; high - nothing)
 
subroutine taugb13
 Band 13: 2080-2250 cm-1 (low key-h2o,n2o; high minor-o3 minor)
 
subroutine taugb14
 Band 14: 2250-2380 cm-1 (low - co2; high - co2)
 
subroutine taugb15
 Band 15: 2380-2600 cm-1 (low - n2o,co2; low minor - n2) (high - nothing)
 
subroutine taugb16
 Band 16: 2600-3250 cm-1 (low key- h2o,ch4; high key - ch4)
 
subroutine, public module_radlw_main::lwrad
 This subroutine is the main LW radiation routine. More...
 
subroutine module_radlw_main::cldprop
 This subroutine computes the cloud optical depth(s) for each cloudy layer and g-point interval. More...
 
subroutine module_radlw_main::rtrnmr
 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
 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...
 

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
 

Detailed Description

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

Definition in file radlw_main.f.

Go to the source code of this file.