module_radiation_gases Module Reference

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

Functions/Subroutines
subroutine, public	gas_init (me, co2usr_file, co2cyc_file, ico2flg, ictmflg, con_pi, errflg, errmsg)
	This subroutine sets up co2, etc. parameters.
subroutine, public	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	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
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	prsco2 =788.0
real(kind=kind_phys)	raddeg
real(kind=kind_phys)	hfpi
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	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