! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Utility Data Module File
! 
! Generated by KPP-2.2.1_rs5 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                 : messy_mecca_kpp_Monitor.f90
! Time                 : Sun Dec 21 18:36:06 2014
! Working directory    : /.statelite/tmpfs/gpfs/projects/bsc32/bsc32771/MN3/NMMB/test/KPP/caaba_3.0gmdd/mecca
! Equation file        : messy_mecca_kpp.kpp
! Output root filename : messy_mecca_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE messy_mecca_kpp_Monitor


  CHARACTER(LEN=32), PARAMETER, DIMENSION(16) :: SPC_NAMES = (/ &
     'DMS                             ','H2O                             ','H2SO4                           ', &
     'SO4mm_a01                       ','SO2                             ','H2O2                            ', &
     'H2O2_a01                        ','SO2_a01                         ','Hp_a01                          ', &
     'HSO3m_a01                       ','SO3mm_a01                       ','O3_a01                          ', &
     'O2                              ','O3                              ','OH                              ', &
     'HO2                             ' /)

  INTEGER, DIMENSION(1) :: LOOKAT
  INTEGER, DIMENSION(1) :: MONITOR
  CHARACTER(LEN=32), DIMENSION(1) :: SMASS
  CHARACTER(LEN=100), PARAMETER, DIMENSION(19) :: EQN_NAMES = (/ &
     '               2 HO2 --> H2O2 + O2                                                                  ', &
     '           H2O2 + OH --> H2O + HO2                                                                  ', &
     '            SO2 + OH --> H2SO4 + HO2                                                                ', &
     '                H2O2 --> 2 OH                                                                       ', &
     '            DMS + OH --> SO2                                                                        ', &
     '            DMS + OH --> 0.5 SO2                                                                    ', &
     '  SO3mm_a01 + O3_a01 --> SO4mm_a01                                                                  ', &
     '  HSO3m_a01 + O3_a01 --> SO4mm_a01 + Hp_a01                                                         ', &
     'H2O2_a01 + HSO3m_a01 --> SO4mm_a01 + Hp_a01                                                         ', &
     '                  O3 --> O3_a01                                                                     ', &
     '              O3_a01 --> O3                                                                         ', &
     '                H2O2 --> H2O2_a01                                                                   ', &
     '            H2O2_a01 --> H2O2                                                                       ', &
     '                 SO2 --> SO2_a01                                                                    ', &
     '             SO2_a01 --> SO2                                                                        ', &
     '             SO2_a01 --> Hp_a01 + HSO3m_a01                                                         ', &
     '  Hp_a01 + HSO3m_a01 --> SO2_a01                                                                    ', &
     '           HSO3m_a01 --> Hp_a01 + SO3mm_a01                                                         ', &
     '  Hp_a01 + SO3mm_a01 --> HSO3m_a01                                                                  ' /)

  CHARACTER(LEN=32), PARAMETER, DIMENSION(19) :: EQN_TAGS = (/ &
     'G2110                           ','G2112                           ','G9200                           ', &
     'J2101                           ','G9400aOJ                        ','G9400bOJ                        ', &
     'A9101_a01                       ','A9206_a01                       ','A9209_a01                       ', &
     'H1001f_a01                      ','H1001b_a01                      ','H2102f_a01                      ', &
     'H2102b_a01                      ','H9100f_a01                      ','H9100b_a01                      ', &
     'EQ90f_a01                       ','EQ90b_a01                       ','EQ91f_a01                       ', &
     'EQ91b_a01                       ' /)

! INLINED global variables

! End INLINED global variables


END MODULE messy_mecca_kpp_Monitor
