radiation_gases.f File Reference

Go to the source code of this file.

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. All data are entered as mixing ratio by volume, except ozone which is mass mixing ratio (g/g).

Functions/Subroutines
subroutine, public	module_radiation_gases::gas_init
	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
	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
	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
	This subroutine sets up climatological ozone profile for radiation calculation this code is originally written by Shrinivas Moorthi. More...

Variables
character(40), parameter	module_radiation_gases::vtaggas ='NCEP-Radiation_gases v5.1 Nov 2012 '
integer, parameter, public	module_radiation_gases::nf_vgas = 10
	number of gas species More...
integer, parameter	module_radiation_gases::imxco2 = 24
	input co2 dat lon points More...
integer, parameter	module_radiation_gases::jmxco2 = 12
	input co2 data lat points More...
integer, parameter	module_radiation_gases::minyear = 1957
	earlist year 2-d co2 data available More...
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