- Timestamp:
- Oct 30, 2018 2:51:23 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C
r3298 r3458 12 12 //Current revisions: 13 13 //------------------ 14 / 15 / 14 // 15 // 16 16 //Former revisions: 17 17 //----------------- 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) 40 44 // 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 // 47 52 #include <stdio.h> 48 // mz_rs_20090111+49 53 // stdlib is necessary to define getenv: 50 54 #include <stdlib.h> 51 // mz_rs_20090111-52 55 53 56 #include "create_kpp_module.h" … … 131 134 } 132 135 133 // Change global variables to vector 136 // Change global variables to vector (except for kp4_compress, which has already the right form) 134 137 135 138 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 } 137 142 } 138 143 … … 162 167 } 163 168 } 164 // cout << "## after Edit individual subroutines " <<endl;165 166 169 } 167 170
Note: See TracChangeset
for help on using the changeset viewer.