MODULE RATE_INDEX_MOD
 
!-----------------------------------------------------
!      ... Rate Index
!-----------------------------------------------------
 
  IMPLICIT NONE
 
  INTEGER, PARAMETER :: jN2O            =  1
  INTEGER, PARAMETER :: jMCF            =  2
  INTEGER, PARAMETER :: kCOOH           =  3
  INTEGER, PARAMETER :: kRn222          =  4
  INTEGER, PARAMETER :: kMCFOH          =  5
  INTEGER, PARAMETER :: kBe7            =  6
  INTEGER, PARAMETER :: kN2OO1D2NO      =  7
  INTEGER, PARAMETER :: kN2OO1DN2       =  8
  INTEGER, PARAMETER :: kCH4OH          =  9
  INTEGER, PARAMETER :: kCH4O1DCH3O2    = 10
  INTEGER, PARAMETER :: kCH4O1DH2       = 11
  INTEGER, PARAMETER :: kCH4O1DCH3OH    = 12
 
  INTEGER, PARAMETER :: het_Pb210   =  1
 
  INTEGER, PARAMETER :: inv_M       =  1
  INTEGER, PARAMETER :: inv_N2      =  2
  INTEGER, PARAMETER :: inv_O2      =  3
  INTEGER, PARAMETER :: inv_H2O     =  4
  INTEGER, PARAMETER :: inv_CO2     =  5
  INTEGER, PARAMETER :: inv_OH      =  6
  INTEGER, PARAMETER :: inv_NO3INV  =  7
  INTEGER, PARAMETER :: inv_O3      =  8
  INTEGER, PARAMETER :: inv_H2O2    =  9
  INTEGER, PARAMETER :: inv_O1D     = 10
  INTEGER, PARAMETER :: inv_HNO3INV = 11
  INTEGER, PARAMETER :: inv_NO2INV  = 12
 
  INTEGER, PARAMETER :: ext_Be7     =  1
 
CHARACTER(len=8) :: hetname(1) = (/  &
             'Pb210   '            &
      /)
 
CHARACTER(len=8) :: extname(1) = (/  &
             'Be7     '            &
      /)
 
CHARACTER(len=16) :: reacname(12) = (/  &
             'jN2O            '            &
      ,      'jMCF            ','kCOOH           ' &
      ,      'kRn222          ','kMCFOH          ' &
      ,      'kBe7            ','kN2OO1D2NO      ' &
      ,      'kN2OO1DN2       ','kCH4OH          ' &
      ,      'kCH4O1DCH3O2    ','kCH4O1DH2       ' &
      ,      'kCH4O1DCH3OH    '            &
      /)
 
CHARACTER(len=8) :: invname(12) = (/  &
             'M       '            &
      ,      'N2      ','O2      ' &
      ,      'H2O     ','CO2     ' &
      ,      'OH      ','NO3INV  ' &
      ,      'O3      ','H2O2    ' &
      ,      'O1D     ','HNO3INV ' &
      ,      'NO2INV  '            &
      /)
 
CHARACTER(len=8) :: name_xml(8) = (/  &
             'rn222           '            &
      ,      'pb210           ','mcf             ' &
      ,      'be7             ','n2o             ' &
      ,      'ch4             ','co              ' &
      ,      'co2bih          '            &
      /)
 
END MODULE RATE_INDEX_MOD