Ignore:
Timestamp:
Oct 30, 2018 2:51:23 PM (6 years ago)
Author:
kanani
Message:

Reintegrated fixes/changes from branch chemistry

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C

    r3298 r3458  
    1212//Current revisions:
    1313//------------------
    14 / 
    15 / 
     14//
     15//
    1616//Former revisions:
    1717//-----------------
    18 //$Id: create_kpp_module.C 2470 2017-09-14 13:56:42Z forkel $
    19 // forkel 25.09.2018:  added  automatic line with meechanism name (read mech_list)
    20 // forkel 20.09.2018:  added  vl_glo = size(tempi,1)
    21 // ketelsen 18.09.2018: Removed creation of fill_ Subroutine and creation of calls thereof
    22 //
    23 // forkel 12.09.2018: Fix in order not to loose the values of qvap and fakt
    24 //
    25 // forkel 03.09.2018: Bug fix: moved kppi.add_line("    CALL initialize after fakt = fakti(is)
    26 // forkel June 2018: added qvap and fakt, re-established original uppercase/lowercase
    27 //                    Deleted definition of qvap,fakt in create_kpp_integrate again
    28 //
    29 // ketelsen July 2018: Changes for vector mode (edit_WAXPY, edit_FunTemplate, edit_JacTemplate,
    30 //                            some cleanup of comments, various changes in create_kpp_integrate)
    31 //
    32 // forkel June 2018: Added qvap and fakt, re-established original uppercase/lowercase
    33 //
    34 //
    35 / 2017-09-14 13:56:42Z forkel $
    36 // Removed preprocessor directive __chem again
    37 //
    38 // 2017-09-14 13:56:42Z forkel $
    39 //
     18//$Id: create_kpp_module.C 3453 2018-10-30 13:21:51Z forkel $
     19// exclude kco_compress from handling by global_variables2vector (30.10.2018, forkel)
     20//
     21// Added  automatic line with mechanism name (read mech_list) (25.09.2018, forkel)
     22//
     23// Added  vl_glo = size(tempi,1) (20.09.2018, forkel)
     24//
     25// Removed creation of fill_ Subroutine and creation of calls thereof (18.09.2018, ketelsen)
     26//
     27// Fix in order not to loose the values of qvap and fakt (12.09.2018, forkel)
     28//
     29// Bug fixes: moved kppi.add_line("    CALL initialize after fakt = fakti(is)
     30// Deleted definition of qvap,fakt in create_kpp_integrate again (03.09.2018, forkel)
     31//
     32// Changes for vector mode (edit_WAXPY, edit_FunTemplate, edit_JacTemplate,
     33// some cleanup of comments, various changes in create_kpp_integrate) (July 2018, ketelsen)
     34//
     35//
     36// Added qvap and fakt                            (June 2018, forkel)
     37// --> Change in module_header: qvap, fakt added  (June 2018, forkel)
     38//
     39// re-established original uppercase/lowercase     (June 2018, forkel)
     40// --> Change in module_header: reset case in  Initialize, Integrate, and
     41//     Update_rconst                               (June 2018, forkel)
     42//
     43// Removed preprocessor directive __chem again (2017-09-14, forkel)
    4044//
    41 //added phot
    42 //change of some output to lowercase with uppercase Fortran
    43 //
    44 // Nov 2016: Intial version of KP4 adapted to PALM (Klaus Ketelsen)
    45 //
    46 
     45// Added phot                                                 (2017-09-14, forkel)
     46// --> Change in module_header: Variables for photolyis added (2017-09-14, forkel)
     47//
     48// change of some output to lowercase with uppercase Fortran (2017, forkel)
     49//
     50// Intial version of KP4 adapted to PALM                      (Nov. 2016, ketelsen)
     51//
    4752#include <stdio.h>
    48 //  mz_rs_20090111+
    4953// stdlib is necessary to define getenv:
    5054#include <stdlib.h>
    51 //  mz_rs_20090111-
    5255
    5356#include "create_kpp_module.h"
     
    131134     }
    132135
    133 //   Change global variables to vector
     136//   Change global variables to vector (except for kp4_compress, which has already the right form)
    134137     
    135138     for(it=kpp_subroutines.begin();it!=kpp_subroutines.end();it++) {
    136        it->global_variables2vector (global_variable_list);
     139       if(it->get_name() != "kco_compress" ) {
     140         it->global_variables2vector (global_variable_list);
     141       }
    137142     }
    138143
     
    162167       }
    163168     }
    164 // cout << "## after Edit individual subroutines    " <<endl;
    165 
    166169   }
    167170
Note: See TracChangeset for help on using the changeset viewer.