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

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

@@ -19 +19 @@
 //$Id: 
 //
+// removal of unnecessary variables (Ntotal, TSTART)                        (08.03.2019 forkel)
+// 
 // Added vector switch and creation of dimension statement (rev. 3260, 18.09.2018, ketelsen)
 // 
@@ -167 +169 @@
     }
 
+//  Remove Ntotal since it is unused
+
+    if(ip->get_token(3) == "Ntotal") {
+      lo_line.insert(0,"!DELETE ");
+    cout << lo_line << endl;
+    }
+
+
 
     ip->set_line(lo_line);
@@ -390 +400 @@
 
     if(ip->get_token_number_from_string("RTOLS") > 0) {
+    cout << lo_line << endl;
+      lo_line.insert(0,"!DELETE ");
+    cout << lo_line << endl;
+    }
+
+//  Remove    TSTART
+
+    if(ip->get_token_number_from_string("TSTART") > 0) {
     cout << lo_line << endl;
       lo_line.insert(0,"!DELETE ");