! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : cbm5_Initialize.f90
! Time                 : Fri Jan 29 14:37:03 2010
! Working directory    : /gpfs/projects/bsc32/bsc32771/UMO/UMO-Chem/chemistry/KPP/kpp-2.2.1.December2006/models/CBM5
! Equation file        : cbm5.kpp
! Output root filename : cbm5
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE cbm5_Initialize

  USE cbm5_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUBROUTINE InitializeCB5 ( )


  USE cbm5_Global

  INTEGER :: i
  REAL(kind=dp) :: x

! constant rate coefficients
  RCONST(11) = 2.2e-10
  RCONST(19) = 2.5e-22
  RCONST(20) = 1.8e-39
  RCONST(23) = 5e-40
  RCONST(27) = 1e-20
  RCONST(38) = 1.1e-10
  RCONST(46) = 1e-11
  RCONST(47) = 2.2e-11
  RCONST(48) = 3.5e-12
  RCONST(49) = 1e-17
  RCONST(58) = 6.8e-14
  RCONST(59) = 6.8e-14
  RCONST(60) = 6.8e-14
  RCONST(73) = 9e-12
  RCONST(77) = 5.8e-16
  RCONST(80) = 5.6e-12
  RCONST(82) = 4e-13
  RCONST(100) = 6.5e-15
  RCONST(106) = 3e-13
  RCONST(112) = 8.1e-13
  RCONST(114) = 1600
  RCONST(115) = 1.5e-11
  RCONST(117) = 3.2e-11
  RCONST(124) = 2.3e-11
  RCONST(129) = 8.1e-12
  RCONST(130) = 4.2
  RCONST(131) = 4.1e-11
  RCONST(132) = 2.2e-11
  RCONST(133) = 1.4e-11
  RCONST(134) = 5.5e-12
  RCONST(136) = 3e-11
  RCONST(139) = 1.7e-11
  RCONST(141) = 3.6e-11
  RCONST(145) = 3.36e-11
  RCONST(146) = 7.1e-18
  RCONST(147) = 1e-15
  RCONST(149) = 3.6e-11
  RCONST(156) = 1.5e-19
! END constant rate coefficients

END SUBROUTINE InitializeCB5
! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE cbm5_Initialize

