- Timestamp:
- Mar 8, 2019 6:04:30 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C
r3780 r3789 17 17 //----------------- 18 18 //$Id: create_kpp_module.C 3453 2018-10-30 13:21:51Z forkel $ 19 // Added vector switch Kacc,Krej,IERRV, Commented add_line for istatf, (05.03.2019, forkel) 20 // added ,pe after ierr_u, 21 // 19 22 // Added create_set_cs and cs_mech and get_mechanismname in module_header (05.03.2019, forkel) 20 23 // … … 436 439 mz_kpp.add_line(" "); 437 440 mz_kpp.add_line(" "); 438 mz_kpp.add_line(" integer, dimension(VL_dim) :: Kacc,Krej "); 439 mz_kpp.add_line(" integer, dimension(VL_dim) :: IERRV "); 441 if(kpp_switches.is_vector()) { 442 mz_kpp.add_line(" integer, dimension(VL_dim) :: Kacc,Krej "); 443 mz_kpp.add_line(" integer, dimension(VL_dim) :: IERRV "); 444 } 440 445 mz_kpp.add_line(" logical :: data_loaded = .false. "); 441 442 446 in.close(); 443 447 … … 535 539 kppi.add_line(" integer, dimension(20) :: istatus_u "); 536 540 kppi.add_line(" integer :: ierr_u "); 537 541 // kppi.add_line(" integer :: istatf "); 538 542 kppi.add_line(" integer :: vl_dim_lo "); 539 543 kppi.add_line(" "); … … 599 603 } else { 600 604 kppi.add_line(" IF (PRESENT(l_debug) .AND. PRESENT(PE)) THEN "); 601 kppi.add_line(" IF (l_debug) CALL error_output(Conc(is,:),ierr_u, PE)");605 kppi.add_line(" IF (l_debug) CALL error_output(Conc(is,:),ierr_u,pe) "); 602 606 kppi.add_line(" ENDIF "); 603 607 kppi.add_line(" ");
Note: See TracChangeset
for help on using the changeset viewer.