Changeset 3789 for palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file_vec.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/fortran_file_vec.C (modified) (2 diffs)

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

@@ -17 +17 @@
 //-----------------------
 //$Id: fortran_file_vec.C 3327 2018-10-09 19:55:00Z forkel $
+// Added vector switch for INTEGER         :: j,k                       (08.03.2019, forkel)
+//
 // Line 112: do k=is,ie bydo k=1,vl; line 156 ff: replaced index k by j (18.09.2018, ketelsen)
 //
@@ -169 +171 @@
   lo_line = ip->get_line() ;
   lo_line.erase();
-  lo_line = "  INTEGER         :: j,k";
+  if(kpp_switches.is_vector() ) {
+    lo_line = " INTEGER         :: j,k";
+  } else {
+    lo_line = " INTEGER         :: k";
+  }
   ip->set_line(lo_line);