chem/KPP/mechanisms/racmsorg_aqchem/racmsorg_aqchem.def

   1 #include atoms_red
   2 #include ./racmsorg_aqchem.spc
   3 #include ./racmsorg_aqchem.eqn
   4
   5
   6
   7
   8 #INLINE F90_RATES
   9 REAL(KIND=dp) FUNCTION k46( TEMP, C_M )
  10     REAL(KIND=dp), INTENT(IN) :: temp, c_m
  11     REAL(KIND=dp) :: k0, k2, k3
  12
  13    k0=7.2E-15_dp * EXP(785._dp/TEMP)
  14    k2=4.1E-16_dp * EXP(1440._dp/TEMP)
  15    k3=1.9E-33_dp * EXP(725._dp/TEMP)
  16
  17    k46=k0+k3/(1+k3/k2)
  18
  19
  20 END FUNCTION k46
  21 #ENDINLINE