radiation_gas_constants Module


Uses

  • module~~radiation_gas_constants~2~~UsesGraph module~radiation_gas_constants~2 radiation_gas_constants module~parkind1~2 PARKIND1 module~radiation_gas_constants~2->module~parkind1~2

Contents

Variables


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: IGasNotPresent = 0
integer, public, parameter :: IH2O = 1
integer, public, parameter :: ICO2 = 2
integer, public, parameter :: IO3 = 3
integer, public, parameter :: IN2O = 4
integer, public, parameter :: ICO = 5
integer, public, parameter :: ICH4 = 6
integer, public, parameter :: IO2 = 7
integer, public, parameter :: ICFC11 = 8
integer, public, parameter :: ICFC12 = 9
integer, public, parameter :: IHCFC22 = 10
integer, public, parameter :: ICCl4 = 11
integer, public, parameter :: INO2 = 12
integer, public, parameter :: NMaxGases = 12
real(kind=jprb), public, parameter :: AirMolarMass = 28.970_jprb
real(kind=jprb), public, parameter, dimension(0:NMaxGases) :: GasMolarMass = (/0.0_jprb, 18.0152833_jprb, 44.011_jprb, 47.9982_jprb, 44.013_jprb, 28.0101_jprb, 16.043_jprb, 31.9988_jprb, 137.3686_jprb, 120.914_jprb, 86.469_jprb, 153.823_jprb, 46.0055_jprb/)
character(len=6), public, parameter, dimension(NMaxGases) :: GasName = (/'H2O   ', 'CO2   ', 'O3    ', 'N2O   ', 'CO    ', 'CH4   ', 'O2    ', 'CFC11 ', 'CFC12 ', 'HCFC22', 'CCl4  ', 'NO2   '/)
character(len=6), public, parameter, dimension(NMaxGases) :: GasLowerCaseName = (/'h2o   ', 'co2   ', 'o3    ', 'n2o   ', 'co    ', 'ch4   ', 'o2    ', 'cfc11 ', 'cfc12 ', 'hcfc22', 'ccl4  ', 'no2   '/)