Changeset 3789 for palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C

Timestamp:

Mar 8, 2019 6:04:30 PM (5 years ago)

Author:

forkel

Message:

Removed unused variables from chem_gasphase_mod.f90

File:

• palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C (modified) (4 diffs)

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C

@@ -17 +17 @@
 //-----------------
 //$Id: create_kpp_module.C 3453 2018-10-30 13:21:51Z forkel $
+// Added vector switch Kacc,Krej,IERRV, Commented add_line for istatf,    (05.03.2019, forkel)
+//      added ,pe after ierr_u,         
+//
 // Added create_set_cs and cs_mech and get_mechanismname in module_header (05.03.2019, forkel)
 //
@@ -436 +439 @@
    mz_kpp.add_line("                                                                 "); 
    mz_kpp.add_line("                                                                 "); 
-   mz_kpp.add_line("  integer, dimension(VL_dim)   :: Kacc,Krej                       "); 
-   mz_kpp.add_line("  integer, dimension(VL_dim)   :: IERRV                           "); 
+   if(kpp_switches.is_vector()) {
+      mz_kpp.add_line("  integer, dimension(VL_dim)   :: Kacc,Krej                       "); 
+      mz_kpp.add_line("  integer, dimension(VL_dim)   :: IERRV                           "); 
+   }
    mz_kpp.add_line("  logical                     :: data_loaded = .false.             "); 
-
    in.close();
 
@@ -535 +539 @@
    kppi.add_line("  integer, dimension(20)                 :: istatus_u               ");
    kppi.add_line("  integer                                :: ierr_u                  ");
-   kppi.add_line("  integer                                :: istatf                  ");
+// kppi.add_line("  integer                                :: istatf                  ");
    kppi.add_line("  integer                                :: vl_dim_lo               ");
    kppi.add_line("                                                                    ");
@@ -599 +603 @@
    } else {
      kppi.add_line("   IF (PRESENT(l_debug) .AND. PRESENT(PE)) THEN                       ");
-     kppi.add_line("      IF (l_debug) CALL error_output(Conc(is,:),ierr_u, PE)           ");
+     kppi.add_line("      IF (l_debug) CALL error_output(Conc(is,:),ierr_u,pe)            ");
      kppi.add_line("   ENDIF                                                              ");
      kppi.add_line("                                                                      ");