This module sets up ozone climatological profiles and other constant gas profiles, such as co2, ch4, n2o, o2, and those of cfc gases.
|
|
subroutine, public | gas_init (me) |
| This subroutine sets up ozone, co2, etc. parameters. If climatology ozone then read in monthly ozone data. More...
|
|
subroutine, public | 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 | 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 | 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...
|
|
|
character(40), parameter | vtaggas ='NCEP-Radiation_gases v5.1 Nov 2012 ' |
|
integer, parameter, public | nf_vgas = 10 |
| number of gas species More...
|
|
integer, parameter | imxco2 = 24 |
| input CO2 data longitude points More...
|
|
integer, parameter | jmxco2 = 12 |
| input CO2 data latitude points More...
|
|
integer, parameter | minyear = 1957 |
| earlist year 2D CO2 data available More...
|
|
real(kind=kind_phys), parameter | resco2 =15.0 |
| horizontal resolution in degree More...
|
|
real(kind=kind_phys), parameter | raddeg =180.0/con_pi |
| rad->deg conversion More...
|
|
real(kind=kind_phys), parameter | prsco2 =788.0 |
| pressure limitation for 2D CO2 (mb) More...
|
|
real(kind=kind_phys), parameter | hfpi =0.5*con_pi |
| half of pi More...
|
|
real(kind=kind_phys), parameter | co2vmr_def = 350.0e-6 |
| parameter constant for CO2 volume mixing ratio More...
|
|
real(kind=kind_phys), parameter | n2ovmr_def = 0.31e-6 |
| parameter constant for N2O volume mixing ratio More...
|
|
real(kind=kind_phys), parameter | ch4vmr_def = 1.50e-6 |
| parameter constant for CH4 volume mixing ratio More...
|
|
real(kind=kind_phys), parameter | o2vmr_def = 0.209 |
| parameter constant for O2 volume mixing ratio More...
|
|
real(kind=kind_phys), parameter | covmr_def = 1.50e-8 |
| parameter constant for CO colume mixing ratio More...
|
|
real(kind=kind_phys), parameter | f11vmr_def = 3.520e-10 |
|
real(kind=kind_phys), parameter | f12vmr_def = 6.358e-10 |
|
real(kind=kind_phys), parameter | f22vmr_def = 1.500e-10 |
|
real(kind=kind_phys), parameter | cl4vmr_def = 1.397e-10 |
|
real(kind=kind_phys), parameter | f113vmr_def = 8.2000e-11 |
|
real(kind=kind_phys), dimension(:), allocatable | pkstr |
|
real(kind=kind_phys), dimension(:,:,:), allocatable | o3r |
|
integer | k1oz = 0 |
|
integer | k2oz = 0 |
|
real(kind=kind_phys) | facoz = 0.0 |
|
real(kind=kind_phys), dimension(:,:,:), allocatable | co2vmr_sav |
|
real(kind=kind_phys), dimension(:,:,:), allocatable | co2cyc_sav |
|
real(kind=kind_phys) | co2_glb = co2vmr_def |
|
real(kind=kind_phys), dimension(12) | gco2cyc |
|
integer | kyrsav = 0 |
|
integer | kmonsav = 1 |
|