Index: palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90
===================================================================
--- palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90	(revision 3780)
+++ palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90	(revision 3789)
@@ -97,6 +97,4 @@
                                                                  
                                                                  
-  INTEGER, DIMENSION(vl_dim)  :: kacc, krej                       
-  INTEGER, DIMENSION(vl_dim)  :: ierrv                           
   LOGICAL                     :: data_loaded = .FALSE.             
 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -115,6 +113,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Parameters.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -189,6 +187,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Global.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -217,6 +215,4 @@
 ! TEMP - Temperature
   REAL(kind=dp):: temp
-! TSTART - Integration start time
-  REAL(kind=dp):: tstart
 ! ATOL - Absolute tolerance
   REAL(kind=dp):: atol(nvar)
@@ -257,6 +253,6 @@
 ! 
 ! File                 : chem_gasphase_mod_JacobianSP.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -301,6 +297,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Monitor.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -360,6 +356,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Initialize.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -386,6 +382,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Integrator.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -444,6 +440,6 @@
 ! 
 ! File                 : chem_gasphase_mod_LinearAlgebra.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -471,6 +467,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Jacobian.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -498,6 +494,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Function.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -527,6 +523,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Rates.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -553,6 +549,6 @@
 ! 
 ! File                 : chem_gasphase_mod_Util.f90
-! Time                 : Tue Mar  5 11:50:50 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Mar  8 19:01:00 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -674,5 +670,5 @@
 
 
-  INTEGER         :: j, k
+ INTEGER         :: k
 
   INTEGER :: i
@@ -716,5 +712,4 @@
    INTEGER       :: icntrl(20), istatus(20), ierr
 
-   INTEGER, SAVE :: ntotal = 0
 
    icntrl(:) = 0
@@ -900,5 +895,5 @@
   REAL(dp), DIMENSION(:), INTENT(IN):: c
 
-  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
+  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
 
 
@@ -2209,6 +2204,5 @@
                                                                       
     INTEGER  :: ier                                                   
-    REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
-    INTEGER  :: k, kk, j, jj                                          
+    REAL(kind=dp):: jvs(lu_nonzero), a                         
                                                                       
     a = 0.                                                            
@@ -2255,5 +2249,4 @@
   INTEGER, DIMENSION(20)                :: istatus_u               
   INTEGER                                :: ierr_u                  
-  INTEGER                                :: istatf                  
   INTEGER                                :: vl_dim_lo               
                                                                     
@@ -2292,5 +2285,5 @@
                                                                     
    IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
-      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)          
+      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    ENDIF                                                              
                                                                       
