!
! Temperature-independent chemical reaction rates are scalar parameters:
!
      real,parameter :: RK4  = 1.0E-10  ! cmpn4s, cmpox, elden, qjion
      real,parameter :: RK5  = 4.4E-10  ! cmpnoz, cmpox, elden, hoxpion, qjion
      real,parameter :: RK6  = 4.0E-10  ! cmpn4s, cmpox, elden, oplus, qjion
      real,parameter :: RK7  = 2.0E-10  ! cmpox, elden, oplus, qjion
      real,parameter :: RK8  = 1.0E-12  ! cmpn4s, cmpox, oplus, qjion
      real,parameter :: RK9  = 6.0E-11  ! cmpox, elden, qjion
      real,parameter :: RK10 = 5.0E-11  ! cmpmeta, cmpox, oplus, qjion
      real,parameter :: RK12 = 6.E-10   ! cmphox, cmpox, oplus, rates
      real,parameter :: RK13 = 9.4E-10  ! cmpco, cmpco2, elden, oplus
      real,parameter :: RK14 = 2.0E-9   ! cmph2, cmphox oplus
      real,parameter :: RK15 = 2.4E-9   ! cmph2o,oplus
      real,parameter :: RK16 = 3.4E-10  ! cmpox, elden, oplus, qjion
      real,parameter :: RK17 = 1.0E-10  ! oplus, qjion
      real,parameter :: RK18 = 4.0E-10  ! oplus, qjion
      real,parameter :: RK21 = 0.047    ! oplus
      real,parameter :: RK22 = 0.172    ! oplus, qjion
      real,parameter :: RK23 = 4.8E-10  ! cmpox, elden, oplus, qjion
      real,parameter :: RK24 = 8.E-10   ! cmpox, elden, oplus, qjion
      real,parameter :: RK25 = 5.0E-12  ! oplus, qjion
      real,parameter :: RK27 = 7.E-10   ! cmpox, elden, oplus, qjion
      real,parameter :: RK28 = 7.7E-5   ! oplus, qjion
!
! ODD NITROGEN REACTION RATES, BETA1 THROUGH BETA17
!
      real,parameter :: BETA2  = 5.0E-12 ! cmpmeta, cmpnoz, cmpox, qjnno
      real,parameter :: BETA4  = 5.0E-13 ! cmpmeta, cmpn4s, qjnno
      real,parameter :: BETA6  = 7.0E-11 ! cmpmeta, cmpnoz, cmpox, qjnno
      real,parameter :: BETA7  = 1.06E-5 ! cmpmeta, cmpn4s
      real,parameter :: BETA8  = 5.E-11  ! cmpmeta, cmpn4s, cmpnoz, qjnno
      real,parameter :: BETA11 = 9.3E-12 ! cmpnoz, cmpox, qjnno
      real,parameter :: BETA13 = 3.0E-12 ! cmpn4s, cmpnoz, cmpox, qjnno
      real,parameter :: BETA14 = 6.7E-11 ! cmpnoz
! 
! NEUTRAL CHEMICAL REACTION RATES FOR MESOSPHERIC EXTENSION
!
! METASTABLES
      real,parameter :: RKM3  = 2.2E-10  ! cmph2o, cmphox, cmpmeta, qjnno
      real,parameter :: RKM4  = 1.0E-10  ! cmph2, cmphox, cmpmeta, qjnno
      real,parameter :: RKM5A = 1.4E-10  ! cmpch4, cmpco, cmpmeta, qjnno
      real,parameter :: RKM5B = 1.4E-11  ! cmpch4, cmpco, cmph2, cmpmeta,qjnno
      real,parameter :: RKM7A = 1.2E-10  ! cmpmeta, cmpox, compart, qjnno
      real,parameter :: RKM7B = 1.2E-10  ! cmpox, compart, qjnno
      real,parameter :: RKM8  = 8.E-12   ! cmpmeta, qjnno
      real,parameter :: RKM10 = 1.0E-20  ! cmpmeta, qjnno
      real,parameter :: RKM11 = 1.3E-16  ! cmpmeta, qjnno
      real,parameter :: RKM13 = 2.1E-15  ! cmpmeta, qjnno
      real,parameter :: RKM14 = 4.2E-13  ! cmpmeta, qjnno
      real,parameter :: RKM15 = 2.2E-11  ! cmpmeta, qjnno
      real,parameter :: RKM16 = 8.0E-14  ! cmpmeta, qjnno
      real,parameter :: RKM17 = 3.9E-17  ! cmpmeta, qjnno
!
! OXYGEN-HYDROGEN
!
      real,parameter :: RKM38 = 8.1E-12  ! cmph2, cmphox, cmpox, qjnno
      real,parameter :: RKM45 = 1.4E-10  ! cmpch4, cmpco, cmph2o, cmphox
!
! Carbon reactions
!
      real,parameter :: GAM2A = 0.      ! cmphox, cmpmeta, qjnno
      real,parameter :: GAM2B = 0.      ! cmph2, cmpmeta, qjnno
      real,parameter :: GAM4  = 1.0E-10 ! cmphox, cmpmeta, cmpox, qjnno
      real,parameter :: GAM10 = 1.0E-11 ! cmph2o, cmphox, cmpmeta, qjnno
      real,parameter :: GAM15 = 1.E-13  ! cmpco, cmpco2, cmpmeta, cmpox,qjnno
!
! CO2 number density mixing ratio:
      real,parameter :: CO2MIX = 350.E-6
!
! a1d,asg,adl moved from /NMBTRF/ (crates_tdep.h)
      real,parameter :: A1D = 6.81E-3
      real,parameter :: ASG = 0.0758
      real,parameter :: ADL = 2.58E-4