module_radiation_gases Module Reference

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	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...

Variables
character(40), parameter	vtaggas ='NCEP-Radiation_gases v5.1 Nov 2012 '
integer, parameter, public	nf_vgas = 10
integer, parameter	imxco2 = 24
integer, parameter	jmxco2 = 12
integer, parameter	minyear = 1957
real(kind=kind_phys), parameter	resco2 =15.0
real(kind=kind_phys), parameter	raddeg =180.0/con_pi
real(kind=kind_phys), parameter	prsco2 =788.0
real(kind=kind_phys), parameter	hfpi =0.5*con_pi
real(kind=kind_phys), parameter	co2vmr_def = 350.0e-6
real(kind=kind_phys), parameter	n2ovmr_def = 0.31e-6
real(kind=kind_phys), parameter	ch4vmr_def = 1.50e-6
real(kind=kind_phys), parameter	o2vmr_def = 0.209
real(kind=kind_phys), parameter	covmr_def = 1.50e-8
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