Radiation Gases Module

This module sets up constant gas profiles, such as co2, ch4, n2o, o2, and those of cfc gases. All data are entered as mixing ratio by volume. More...

Modules
module	module_radiation_gases
	This module sets up constant gas rofiles, such as co2, ch4, n2o, o2, and those of cfc gases.

Functions/Subroutines
subroutine, public	module_radiation_gases::gas_init (me, co2usr_file, co2cyc_file, ico2flg, ictmflg, con_pi, errflg, errmsg)
	This subroutine sets up co2, etc. parameters.
subroutine, public	module_radiation_gases::gas_update (iyear, imon, iday, ihour, ldoco2, me, co2dat_file, co2gbl_file, ictmflg, ico2flg, errflg, errmsg)
	This subroutine reads in 2-d monthly co2 data set for a specified year. Data are in a 15 degree lat/lon horizontal resolution.
subroutine, public	module_radiation_gases::getgases (plvl, xlon, xlat, imax, lmax, ico2flg, top_at_1, con_pi, gasdat)
	This subroutine sets up global distribution of radiation absorbing gases in volume mixing ratio. Currently only co2 has the options from observed values, all other gases are asigned to the climatological values.

Variables
integer, parameter, public	module_radiation_gases::nf_vgas = 10
integer, parameter	module_radiation_gases::imxco2 = 24
integer, parameter	module_radiation_gases::jmxco2 = 12
integer, parameter	module_radiation_gases::minyear = 1957
real(kind=kind_phys), parameter	module_radiation_gases::resco2 =15.0
real(kind=kind_phys), parameter	module_radiation_gases::prsco2 =788.0
real(kind=kind_phys)	module_radiation_gases::raddeg
real(kind=kind_phys)	module_radiation_gases::hfpi
real(kind=kind_phys), parameter	module_radiation_gases::co2vmr_def = 350.0e-6
real(kind=kind_phys), parameter	module_radiation_gases::n2ovmr_def = 0.31e-6
real(kind=kind_phys), parameter	module_radiation_gases::ch4vmr_def = 1.50e-6
real(kind=kind_phys), parameter	module_radiation_gases::o2vmr_def = 0.209
real(kind=kind_phys), parameter	module_radiation_gases::covmr_def = 1.50e-8
real(kind=kind_phys), parameter	module_radiation_gases::f11vmr_def = 3.520e-10
real(kind=kind_phys), parameter	module_radiation_gases::f12vmr_def = 6.358e-10
real(kind=kind_phys), parameter	module_radiation_gases::f22vmr_def = 1.500e-10
real(kind=kind_phys), parameter	module_radiation_gases::cl4vmr_def = 1.397e-10
real(kind=kind_phys), parameter	module_radiation_gases::f113vmr_def = 8.2000e-11
real(kind=kind_phys), dimension(:,:,:), allocatable	module_radiation_gases::co2vmr_sav
real(kind=kind_phys), dimension(:,:,:), allocatable	module_radiation_gases::co2cyc_sav
real(kind=kind_phys)	module_radiation_gases::co2_glb = co2vmr_def
real(kind=kind_phys), dimension(12)	module_radiation_gases::gco2cyc
integer	module_radiation_gases::kyrsav = 0
integer	module_radiation_gases::kmonsav = 1

Detailed Description

Figure 1: Atmospheric radiative forcing, relative to 1750, by long-lived greenhouse gases and the 2016 update of the NOAA Annual Greenhouse Gas Index (AGGI)

NOAA Annual Greenhouse Gas Index (AGGI) shows that from 1990 to 2016, radiative forcing by long-lived greenhouse gases (LLGHGs) increased by 40%, with \(CO_2\) accounting for about 80% of this increase(WMO Greenhouse Gas Bulletin (2017) [198]).

Operational GFS selection for gas distribution:
CO2 Distribution (namelist control parameter -ICO2=2):
ICO2=0: use prescribed global annual mean value (currently = 380 ppmv)

ICO2=1: use observed global annual mean value
ICO2=2: use observed monthly 2-d data table in \(15^o\) horizontal resolution

Trace Gases (currently using the global mean climatology in unit of ppmv): \(CH_4-1.50\times10^{-6}\); \(N_2O-0.31\times10^{-6}\); \(O_2-0.209\); \(CO-1.50\times10^{-8}\); \(CF12-6.36\times10^{-10}\); \(CF22-1.50\times10^{-10}\); \(CF113-0.82\times10^{-10}\); \(CCL4-1.40\times10^{-10}\)

Version

NCEP-Radiation_gases v5.1 Nov 2012