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

Timestamp:

Oct 30, 2018 2:51:23 PM (5 years ago)

Author:

kanani

Message:

Reintegrated fixes/changes from branch chemistry

File:

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

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

@@ -12 +12 @@
 //Current revisions:
 //------------------
-/ 
-/ 
+//
+//
 //Former revisions:
 //-----------------
-//$Id: create_kpp_module.C 2470 2017-09-14 13:56:42Z forkel $
-// forkel 25.09.2018:  added  automatic line with meechanism name (read mech_list)
-// forkel 20.09.2018:  added  vl_glo = size(tempi,1)
-// ketelsen 18.09.2018: Removed creation of fill_ Subroutine and creation of calls thereof
-//
-// forkel 12.09.2018: Fix in order not to loose the values of qvap and fakt
-//
-// forkel 03.09.2018: Bug fix: moved kppi.add_line("    CALL initialize after fakt = fakti(is)
-// forkel June 2018: added qvap and fakt, re-established original uppercase/lowercase 
-//                    Deleted definition of qvap,fakt in create_kpp_integrate again
-//
-// ketelsen July 2018: Changes for vector mode (edit_WAXPY, edit_FunTemplate, edit_JacTemplate, 
-//                            some cleanup of comments, various changes in create_kpp_integrate)
-//
-// forkel June 2018: Added qvap and fakt, re-established original uppercase/lowercase 
-//
-//
-/ 2017-09-14 13:56:42Z forkel $
-// Removed preprocessor directive __chem again 
-//
-// 2017-09-14 13:56:42Z forkel $
-//
+//$Id: create_kpp_module.C 3453 2018-10-30 13:21:51Z forkel $
+// exclude kco_compress from handling by global_variables2vector (30.10.2018, forkel)
+//
+// Added  automatic line with mechanism name (read mech_list) (25.09.2018, forkel)
+//
+// Added  vl_glo = size(tempi,1) (20.09.2018, forkel) 
+//
+// Removed creation of fill_ Subroutine and creation of calls thereof (18.09.2018, ketelsen)
+//
+// Fix in order not to loose the values of qvap and fakt (12.09.2018, forkel)
+//
+// Bug fixes: moved kppi.add_line("    CALL initialize after fakt = fakti(is)
+// Deleted definition of qvap,fakt in create_kpp_integrate again (03.09.2018, forkel)
+//
+// Changes for vector mode (edit_WAXPY, edit_FunTemplate, edit_JacTemplate, 
+// some cleanup of comments, various changes in create_kpp_integrate) (July 2018, ketelsen)
+//
+//
+// Added qvap and fakt                            (June 2018, forkel)
+// --> Change in module_header: qvap, fakt added  (June 2018, forkel)
+//
+// re-established original uppercase/lowercase     (June 2018, forkel)
+// --> Change in module_header: reset case in  Initialize, Integrate, and 
+//     Update_rconst                               (June 2018, forkel)
+//
+// Removed preprocessor directive __chem again (2017-09-14, forkel)
 // 
-//added phot
-//change of some output to lowercase with uppercase Fortran
-//
-// Nov 2016: Intial version of KP4 adapted to PALM (Klaus Ketelsen)
-//
-
+// Added phot                                                 (2017-09-14, forkel)
+// --> Change in module_header: Variables for photolyis added (2017-09-14, forkel)
+//
+// change of some output to lowercase with uppercase Fortran (2017, forkel)
+//
+// Intial version of KP4 adapted to PALM                      (Nov. 2016, ketelsen)
+//
 #include <stdio.h>
-//  mz_rs_20090111+
 // stdlib is necessary to define getenv:
 #include <stdlib.h>
-//  mz_rs_20090111-
 
 #include "create_kpp_module.h"
@@ -131 +134 @@
      }
 
-//   Change global variables to vector
+//   Change global variables to vector (except for kp4_compress, which has already the right form)
      
      for(it=kpp_subroutines.begin();it!=kpp_subroutines.end();it++) {
-       it->global_variables2vector (global_variable_list);
+       if(it->get_name() != "kco_compress" ) {
+         it->global_variables2vector (global_variable_list);
+       }
      }
 
@@ -162 +167 @@
        }
      }
-// cout << "## after Edit individual subroutines    " <<endl;
-
    }