Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file.C

Timestamp:

Mar 15, 2019 3:36:25 PM (5 years ago)

Author:

forkel

Message:

editing in kpp4palm: add statements for avoiding unused variables, remove $Id

File:

• palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file.C (modified) (2 diffs)

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

@@ -11 +11 @@
 //
 //
-//Current revisions:
-//------------------
-// 
-// 
 //Former revisions:
 //-----------------
-//$Id: 
+// Deleted $Id since document_changes does not work for C and C++   (15.03.2019, forkel)
+//
+// For vector version edit phot(nphot) - was before done in kpp4pal.ksh (15.03.2019, forkel)
+//
 // OpenMP version    (15.03.2019, ketelsen)
 //
@@ -676 +675 @@
 //  Replace Roundoff = WLAMCH('E') since WLAMCH does not work everywhere
        ip->global_substitute("Roundoff = WLAMCH('E')","roundoff = epsilon(one)");
+//  For vector version edit  phot(nphot) from INLINE in chem_gasphase_mod.kpp
+    if(kpp_switches.is_vector()) {
+        ip->global_substitute("phot(nphot)","phot(vl_dim,nphot)");
+    }
 
 // Now do some cosmetics to adapt the KPP generated output a bit o the looks of PALM,