This module sets up ozone climatological profiles and other constant gas profiles, such as co2, ch4, n2o, o2, and those of cfc gases. All data are entered as mixing ratio by volume, except ozone which is mass mixing ratio (g/g). More...
Modules | |
module | module_radiation_gases |
This module sets up ozone climatological profiles and other constant gas profiles, such as co2, ch4, n2o, o2, and those of cfc gases. | |
Functions/Subroutines | |
subroutine, public | module_radiation_gases::gas_init (me) |
This subroutine sets up ozone, co2, etc. parameters. If climatology ozone then read in monthly ozone data. More... | |
subroutine, public | module_radiation_gases::gas_update (iyear, imon, iday, ihour, loz1st, ldoco2, me) |
This subroutine reads in 2-d monthly co2 data set for a specified year. Data are in a 15 degree lat/lon horizontal resolution. More... | |
subroutine, public | module_radiation_gases::getgases (plvl, xlon, xlat, IMAX, LMAX, 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. More... | |
subroutine, public | module_radiation_gases::getozn (prslk, xlat, IMAX, LM, o3mmr) |
This subroutine sets up climatological ozone profile for radiation calculation. This code is originally written by Shrinivas Moorthi. More... | |
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::raddeg =180.0/con_pi |
real(kind=kind_phys), parameter | module_radiation_gases::prsco2 =788.0 |
real(kind=kind_phys), parameter | module_radiation_gases::hfpi =0.5*con_pi |
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::pkstr |
real(kind=kind_phys), dimension(:,:,:), allocatable | module_radiation_gases::o3r |
integer | module_radiation_gases::k1oz = 0 |
integer | module_radiation_gases::k2oz = 0 |
real(kind=kind_phys) | module_radiation_gases::facoz = 0.0 |
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 |
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) [189]).
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
O3 Distribution (namelist control parameter -NTOZ):
NTOZ=0: use seasonal and zonal averaged climatological ozone
NTOZ>0: use 3-D prognostic ozone
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}\)