<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
!
! Profile_Utility_Parameters
!
! Module containing parameters used in the profile utility modules.
!
!
! CREATION HISTORY:
! Written by: Paul van Delst, 30-Aug-2002
! paul.vandelst@noaa.gov
!
<A NAME='PROFILE_UTILITY_PARAMETERS'><A href='../../html_code/crtm/Profile_Utility_Parameters.f90.html#PROFILE_UTILITY_PARAMETERS' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
MODULE Profile_Utility_Parameters 1,2
! -----------------
! Environment setup
! -----------------
! Modules used
USE Type_Kinds
, ONLY: fp
USE Fundamental_Constants, ONLY : NA => AVOGADRO_CONSTANT, &
R0 => MOLAR_GAS_CONSTANT, &
L0 => LOSCHMIDT_CONSTANT, &
P0 => STANDARD_ATMOSPHERE, &
T0 => STANDARD_TEMPERATURE, &
G0 => STANDARD_GRAVITY, &
PI
! Disable all implicit typing
IMPLICIT NONE
! ------------
! Visibilities
! ------------
! Everything is default private
PRIVATE
! Make renamed fundamental constants public
PUBLIC :: NA
PUBLIC :: R0
PUBLIC :: L0
PUBLIC :: P0
PUBLIC :: T0
PUBLIC :: G0
PUBLIC :: PI
! ---------------------
! Parameter definitions
! ---------------------
! Literal constants
REAL(fp), PUBLIC, PARAMETER :: ZERO = 0.0_fp
REAL(fp), PUBLIC, PARAMETER :: ONE = 1.0_fp
REAL(fp), PUBLIC, PARAMETER :: TWO = 2.0_fp
REAL(fp), PUBLIC, PARAMETER :: HUNDRED = 100.0_fp
! Precision... ~EPSILON(ONE) for double precision.
REAL(fp), PUBLIC, PARAMETER :: TOLERANCE = 2.0e-16_fp
! Conversion factors
REAL(fp), PUBLIC, PARAMETER :: CELSIUS_TO_KELVIN = T0
REAL(fp), PUBLIC, PARAMETER :: G_TO_KG = 1.0e-03_fp
REAL(fp), PUBLIC, PARAMETER :: KG_TO_G = 1.0e+03_fp
REAL(fp), PUBLIC, PARAMETER :: PA_TO_HPA = 1.0e-02_fp
REAL(fp), PUBLIC, PARAMETER :: HPA_TO_PA = 1.0e+02_fp
REAL(fp), PUBLIC, PARAMETER :: PPMV_TO_PPV = 1.0e-06_fp
REAL(fp), PUBLIC, PARAMETER :: PPV_TO_PPMV = 1.0e+06_fp
REAL(fp), PUBLIC, PARAMETER :: CM_TO_M = 1.0e-02_fp
REAL(fp), PUBLIC, PARAMETER :: M_TO_CM = 1.0e+02_fp
REAL(fp), PUBLIC, PARAMETER :: FROM_PERCENT = 1.0e-02_fp
REAL(fp), PUBLIC, PARAMETER :: TO_PERCENT = 1.0e+02_fp
! Units specifiers. Same as for LBLRTM
INTEGER, PUBLIC, PARAMETER :: PPMV_UNITS = 1 ! Units in ppmv
INTEGER, PUBLIC, PARAMETER :: ND_UNITS = 2 ! Units in cm^-3 (number density)
INTEGER, PUBLIC, PARAMETER :: MR_UNITS = 3 ! Units in g/kg (mixing ratio)
INTEGER, PUBLIC, PARAMETER :: MD_UNITS = 4 ! Units in g.m^-3 (mass density)
INTEGER, PUBLIC, PARAMETER :: PP_UNITS = 5 ! Units in hPa (partial pressure)
! Maximum number of molecular species (as for HITRAN)
INTEGER, PUBLIC, PARAMETER :: MAX_N_MOLECULAR_SPECIES = 32
! HITRAN molecular IDs and symbols
INTEGER, PUBLIC, PARAMETER :: ID_H2O = 1
INTEGER, PUBLIC, PARAMETER :: ID_CO2 = 2
INTEGER, PUBLIC, PARAMETER :: ID_O3 = 3
INTEGER, PUBLIC, PARAMETER :: ID_N2O = 4
INTEGER, PUBLIC, PARAMETER :: ID_CO = 5
INTEGER, PUBLIC, PARAMETER :: ID_CH4 = 6
INTEGER, PUBLIC, PARAMETER :: ID_O2 = 7
INTEGER, PUBLIC, PARAMETER :: ID_NO = 8
INTEGER, PUBLIC, PARAMETER :: ID_SO2 = 9
INTEGER, PUBLIC, PARAMETER :: ID_NO2 = 10
INTEGER, PUBLIC, PARAMETER :: ID_NH3 = 11
INTEGER, PUBLIC, PARAMETER :: ID_HNO3 = 12
INTEGER, PUBLIC, PARAMETER :: ID_OH = 13
INTEGER, PUBLIC, PARAMETER :: ID_HF = 14
INTEGER, PUBLIC, PARAMETER :: ID_HCL = 15
INTEGER, PUBLIC, PARAMETER :: ID_HBR = 16
INTEGER, PUBLIC, PARAMETER :: ID_HI = 17
INTEGER, PUBLIC, PARAMETER :: ID_CLO = 18
INTEGER, PUBLIC, PARAMETER :: ID_OCS = 19
INTEGER, PUBLIC, PARAMETER :: ID_H2CO = 20
INTEGER, PUBLIC, PARAMETER :: ID_HOCL = 21
INTEGER, PUBLIC, PARAMETER :: ID_N2 = 22
INTEGER, PUBLIC, PARAMETER :: ID_HCN = 23
INTEGER, PUBLIC, PARAMETER :: ID_CH3CL = 24
INTEGER, PUBLIC, PARAMETER :: ID_H2O2 = 25
INTEGER, PUBLIC, PARAMETER :: ID_C2H2 = 26
INTEGER, PUBLIC, PARAMETER :: ID_C2H6 = 27
INTEGER, PUBLIC, PARAMETER :: ID_PH3 = 28
INTEGER, PUBLIC, PARAMETER :: ID_COF2 = 29
INTEGER, PUBLIC, PARAMETER :: ID_SF6 = 30
INTEGER, PUBLIC, PARAMETER :: ID_H2S = 31
INTEGER, PUBLIC, PARAMETER :: ID_HCOOH = 32
CHARACTER(*), PUBLIC, PARAMETER :: MOLECULAR_SYMBOL(MAX_N_MOLECULAR_SPECIES) = &
(/ 'H2O ','CO2 ','O3 ','N2O ', &
'CO ','CH4 ','O2 ','NO ', &
'SO2 ','NO2 ','NH3 ','HNO3 ', &
'OH ','HF ','HCL ','HBR ', &
'HI ','CLO ','OCS ','H2CO ', &
'HOCL ','N2 ','HCN ','CH3CL', &
'H2O2 ','C2H2 ','C2H6 ','PH3 ', &
'COF2 ','SF6 ','H2S ','HCOOH' /)
! Molecular weights of first seven HITRAN molecular species
REAL(fp), PUBLIC, PARAMETER :: MW_H2O = 18.01528_fp
REAL(fp), PUBLIC, PARAMETER :: MW_CO2 = 44.00950_fp
REAL(fp), PUBLIC, PARAMETER :: MW_O3 = 47.99820_fp
REAL(fp), PUBLIC, PARAMETER :: MW_N2O = 44.01288_fp
REAL(fp), PUBLIC, PARAMETER :: MW_CO = 28.01010_fp
REAL(fp), PUBLIC, PARAMETER :: MW_CH4 = 16.04246_fp
REAL(fp), PUBLIC, PARAMETER :: MW_O2 = 31.99880_fp
REAL(fp), PUBLIC, PARAMETER :: MW_N2 = 28.01348_fp
! Weights of all 32 HITRAN molecular species
REAL(fp), PUBLIC, PARAMETER :: MOLECULAR_WEIGHT(MAX_N_MOLECULAR_SPECIES) = &
(/ MW_H2O, MW_CO2, MW_O3, MW_N2O, &
MW_CO , MW_CH4, MW_O2, 30.00614_fp, &
64.06480_fp, 46.00554_fp, 17.03056_fp, 63.01288_fp, &
17.00734_fp, 20.00634_fp, 36.46064_fp, 80.91194_fp, &
127.91241_fp, 51.45210_fp, 60.07610_fp, 30.02598_fp, &
52.46004_fp, MW_N2 , 27.02538_fp, 50.48722_fp, &
34.01468_fp, 26.03728_fp, 30.06904_fp, 33.99758_fp, &
66.00690_fp, 146.05643_fp, 34.08188_fp, 46.02538_fp /)
! Average molecular weight of dry air
REAL(fp), PUBLIC, PARAMETER :: MW_DRYAIR = 28.9648_fp
! Ratio of water vapor and dry air weights for conversion routines
REAL(fp), PUBLIC, PARAMETER :: EPS = MW_H2O / MW_DRYAIR
! Gas constant for dry air. Units are J.K-1.kg-1
REAL(fp), PUBLIC, PARAMETER :: R_DRYAIR = R0 / ( MW_DRYAIR * G_TO_KG )
! Specific heat of dry air. Units are J.K-1.kg-1
REAL(fp), PUBLIC, PARAMETER :: Cp_DRYAIR = ( 7.0_fp/TWO ) * R_DRYAIR
END MODULE Profile_Utility_Parameters