Changeset 3789
- Timestamp:
- Mar 8, 2019 6:04:30 PM (6 years ago)
- Location:
- palm/trunk
- Files:
-
- 17 edited
-
SOURCE/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C (modified) (4 diffs)
-
UTIL/chemistry/gasphase_preproc/kpp4palm/src/expand_decomp.C (modified) (2 diffs)
-
UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file.C (modified) (3 diffs)
-
UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file_vec.C (modified) (2 diffs)
-
UTIL/chemistry/gasphase_preproc/kpp4palm/templates/initialize_kpp_ctrl_template.f90 (modified) (1 diff)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90 (modified) (19 diffs)
-
UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.f90 (modified) (19 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:53 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:03 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 192 190 ! 193 191 ! File : chem_gasphase_mod_Global.f90 194 ! Time : Tue Mar 5 11:50:53 2019195 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm192 ! Time : Fri Mar 8 19:01:03 2019 193 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 196 194 ! Equation file : chem_gasphase_mod.kpp 197 195 ! Output root filename : chem_gasphase_mod … … 220 218 ! TEMP - Temperature 221 219 REAL(kind=dp):: temp 222 ! TSTART - Integration start time223 REAL(kind=dp):: tstart224 220 ! ATOL - Absolute tolerance 225 221 REAL(kind=dp):: atol(nvar) … … 260 256 ! 261 257 ! File : chem_gasphase_mod_JacobianSP.f90 262 ! Time : Tue Mar 5 11:50:53 2019263 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm258 ! Time : Fri Mar 8 19:01:03 2019 259 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 264 260 ! Equation file : chem_gasphase_mod.kpp 265 261 ! Output root filename : chem_gasphase_mod … … 304 300 ! 305 301 ! File : chem_gasphase_mod_Monitor.f90 306 ! Time : Tue Mar 5 11:50:53 2019307 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm302 ! Time : Fri Mar 8 19:01:03 2019 303 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 308 304 ! Equation file : chem_gasphase_mod.kpp 309 305 ! Output root filename : chem_gasphase_mod … … 366 362 ! 367 363 ! File : chem_gasphase_mod_Initialize.f90 368 ! Time : Tue Mar 5 11:50:53 2019369 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm364 ! Time : Fri Mar 8 19:01:03 2019 365 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 370 366 ! Equation file : chem_gasphase_mod.kpp 371 367 ! Output root filename : chem_gasphase_mod … … 392 388 ! 393 389 ! File : chem_gasphase_mod_Integrator.f90 394 ! Time : Tue Mar 5 11:50:53 2019395 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm390 ! Time : Fri Mar 8 19:01:03 2019 391 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 396 392 ! Equation file : chem_gasphase_mod.kpp 397 393 ! Output root filename : chem_gasphase_mod … … 450 446 ! 451 447 ! File : chem_gasphase_mod_LinearAlgebra.f90 452 ! Time : Tue Mar 5 11:50:53 2019453 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm448 ! Time : Fri Mar 8 19:01:03 2019 449 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 454 450 ! Equation file : chem_gasphase_mod.kpp 455 451 ! Output root filename : chem_gasphase_mod … … 477 473 ! 478 474 ! File : chem_gasphase_mod_Jacobian.f90 479 ! Time : Tue Mar 5 11:50:53 2019480 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm475 ! Time : Fri Mar 8 19:01:03 2019 476 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 481 477 ! Equation file : chem_gasphase_mod.kpp 482 478 ! Output root filename : chem_gasphase_mod … … 504 500 ! 505 501 ! File : chem_gasphase_mod_Function.f90 506 ! Time : Tue Mar 5 11:50:53 2019507 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm502 ! Time : Fri Mar 8 19:01:03 2019 503 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 508 504 ! Equation file : chem_gasphase_mod.kpp 509 505 ! Output root filename : chem_gasphase_mod … … 533 529 ! 534 530 ! File : chem_gasphase_mod_Rates.f90 535 ! Time : Tue Mar 5 11:50:53 2019536 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm531 ! Time : Fri Mar 8 19:01:03 2019 532 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 537 533 ! Equation file : chem_gasphase_mod.kpp 538 534 ! Output root filename : chem_gasphase_mod … … 559 555 ! 560 556 ! File : chem_gasphase_mod_Util.f90 561 ! Time : Tue Mar 5 11:50:53 2019562 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm557 ! Time : Fri Mar 8 19:01:03 2019 558 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 563 559 ! Equation file : chem_gasphase_mod.kpp 564 560 ! Output root filename : chem_gasphase_mod … … 680 676 681 677 682 INTEGER :: j,k678 INTEGER :: k 683 679 684 680 INTEGER :: i … … 722 718 INTEGER :: icntrl(20), istatus(20), ierr 723 719 724 INTEGER, SAVE :: ntotal = 0725 720 726 721 icntrl(:) = 0 … … 942 937 REAL(dp), DIMENSION(:), INTENT(IN):: c 943 938 944 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 939 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 945 940 946 941 … … 2251 2246 2252 2247 INTEGER :: ier 2253 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2254 INTEGER :: k, kk, j, jj 2248 REAL(kind=dp):: jvs(lu_nonzero), a 2255 2249 2256 2250 a = 0. … … 2307 2301 INTEGER, DIMENSION(20) :: istatus_u 2308 2302 INTEGER :: ierr_u 2309 INTEGER :: istatf2310 2303 INTEGER :: vl_dim_lo 2311 2304 … … 2344 2337 2345 2338 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2346 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2339 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2347 2340 ENDIF 2348 2341 -
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(" "); -
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/expand_decomp.C
r3458 r3789 17 17 // $Id: expand_decomp.C 3327 2018-10-09 19:55:00Z forkel $ 18 18 // 19 // initial version (Nov. 2016, ketelsen) 19 // Added switch for de-indexing == 2 (W is not needed then) (08.03.2019, forkel) 20 // commented add_line for 'INTEGER :: k, kk, j, jj' which 21 // only needed for de-indexing == 0 22 // 23 // initial version (Nov. 2016, ketelsen) 20 24 21 25 … … 197 201 de.add_line (" INTEGER :: IER "); 198 202 // de.add_line (" REAL ( kind=dp ) :: JVS (:), W ( NVAR ), a "); 199 de.add_line (" REAL ( kind=dp ) :: JVS ( LU_NONZERO ), W ( NVAR ), a "); 200 de.add_line (" INTEGER :: k, kk, j, jj "); 203 if( kpp_switches.de_indexing () == 2 ) { 204 de.add_line (" REAL ( kind=dp ) :: JVS ( LU_NONZERO ), a "); 205 } else { 206 de.add_line (" REAL ( kind=dp ) :: JVS ( LU_NONZERO ), W ( NVAR ), a "); 207 } 208 // Commented, k, kk, j, jj are only required if de_indexing == 0, which is not handled here 209 // de.add_line (" INTEGER :: k, kk, j, jj "); 201 210 de.add_line (" "); 202 211 de.add_line (" a = 0. "); -
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file.C
r3458 r3789 19 19 //$Id: 20 20 // 21 // removal of unnecessary variables (Ntotal, TSTART) (08.03.2019 forkel) 22 // 21 23 // Added vector switch and creation of dimension statement (rev. 3260, 18.09.2018, ketelsen) 22 24 // … … 167 169 } 168 170 171 // Remove Ntotal since it is unused 172 173 if(ip->get_token(3) == "Ntotal") { 174 lo_line.insert(0,"!DELETE "); 175 cout << lo_line << endl; 176 } 177 178 169 179 170 180 ip->set_line(lo_line); … … 390 400 391 401 if(ip->get_token_number_from_string("RTOLS") > 0) { 402 cout << lo_line << endl; 403 lo_line.insert(0,"!DELETE "); 404 cout << lo_line << endl; 405 } 406 407 // Remove TSTART 408 409 if(ip->get_token_number_from_string("TSTART") > 0) { 392 410 cout << lo_line << endl; 393 411 lo_line.insert(0,"!DELETE "); -
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file_vec.C
r3458 r3789 17 17 //----------------------- 18 18 //$Id: fortran_file_vec.C 3327 2018-10-09 19:55:00Z forkel $ 19 // Added vector switch for INTEGER :: j,k (08.03.2019, forkel) 20 // 19 21 // Line 112: do k=is,ie bydo k=1,vl; line 156 ff: replaced index k by j (18.09.2018, ketelsen) 20 22 // … … 169 171 lo_line = ip->get_line() ; 170 172 lo_line.erase(); 171 lo_line = " INTEGER :: j,k"; 173 if(kpp_switches.is_vector() ) { 174 lo_line = " INTEGER :: j,k"; 175 } else { 176 lo_line = " INTEGER :: k"; 177 } 172 178 ip->set_line(lo_line); 173 179 -
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/initialize_kpp_ctrl_template.f90
r3298 r3789 91 91 REAL(dp), DIMENSION(:),INTENT(IN) :: C 92 92 93 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 93 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 94 94 95 95 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:49 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:00:59 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 222 220 ! 223 221 ! File : chem_gasphase_mod_Global.f90 224 ! Time : Tue Mar 5 11:50:49 2019225 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm222 ! Time : Fri Mar 8 19:00:59 2019 223 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 226 224 ! Equation file : chem_gasphase_mod.kpp 227 225 ! Output root filename : chem_gasphase_mod … … 251 249 ! TEMP - Temperature 252 250 REAL(kind=dp):: temp 253 ! TSTART - Integration start time254 REAL(kind=dp):: tstart255 251 ! ATOL - Absolute tolerance 256 252 REAL(kind=dp):: atol(nvar) … … 291 287 ! 292 288 ! File : chem_gasphase_mod_JacobianSP.f90 293 ! Time : Tue Mar 5 11:50:49 2019294 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm289 ! Time : Fri Mar 8 19:00:59 2019 290 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 295 291 ! Equation file : chem_gasphase_mod.kpp 296 292 ! Output root filename : chem_gasphase_mod … … 387 383 ! 388 384 ! File : chem_gasphase_mod_Monitor.f90 389 ! Time : Tue Mar 5 11:50:49 2019390 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm385 ! Time : Fri Mar 8 19:00:59 2019 386 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 391 387 ! Equation file : chem_gasphase_mod.kpp 392 388 ! Output root filename : chem_gasphase_mod … … 550 546 ! 551 547 ! File : chem_gasphase_mod_Initialize.f90 552 ! Time : Tue Mar 5 11:50:49 2019553 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm548 ! Time : Fri Mar 8 19:00:59 2019 549 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 554 550 ! Equation file : chem_gasphase_mod.kpp 555 551 ! Output root filename : chem_gasphase_mod … … 576 572 ! 577 573 ! File : chem_gasphase_mod_Integrator.f90 578 ! Time : Tue Mar 5 11:50:49 2019579 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm574 ! Time : Fri Mar 8 19:00:59 2019 575 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 580 576 ! Equation file : chem_gasphase_mod.kpp 581 577 ! Output root filename : chem_gasphase_mod … … 634 630 ! 635 631 ! File : chem_gasphase_mod_LinearAlgebra.f90 636 ! Time : Tue Mar 5 11:50:49 2019637 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm632 ! Time : Fri Mar 8 19:00:59 2019 633 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 638 634 ! Equation file : chem_gasphase_mod.kpp 639 635 ! Output root filename : chem_gasphase_mod … … 661 657 ! 662 658 ! File : chem_gasphase_mod_Jacobian.f90 663 ! Time : Tue Mar 5 11:50:49 2019664 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm659 ! Time : Fri Mar 8 19:00:59 2019 660 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 665 661 ! Equation file : chem_gasphase_mod.kpp 666 662 ! Output root filename : chem_gasphase_mod … … 688 684 ! 689 685 ! File : chem_gasphase_mod_Function.f90 690 ! Time : Tue Mar 5 11:50:49 2019691 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm686 ! Time : Fri Mar 8 19:00:59 2019 687 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 692 688 ! Equation file : chem_gasphase_mod.kpp 693 689 ! Output root filename : chem_gasphase_mod … … 717 713 ! 718 714 ! File : chem_gasphase_mod_Rates.f90 719 ! Time : Tue Mar 5 11:50:49 2019720 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm715 ! Time : Fri Mar 8 19:00:59 2019 716 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 721 717 ! Equation file : chem_gasphase_mod.kpp 722 718 ! Output root filename : chem_gasphase_mod … … 743 739 ! 744 740 ! File : chem_gasphase_mod_Util.f90 745 ! Time : Tue Mar 5 11:50:49 2019746 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm741 ! Time : Fri Mar 8 19:00:59 2019 742 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 747 743 ! Equation file : chem_gasphase_mod.kpp 748 744 ! Output root filename : chem_gasphase_mod … … 864 860 865 861 866 INTEGER :: j,k862 INTEGER :: k 867 863 868 864 INTEGER :: i … … 908 904 INTEGER :: icntrl(20), istatus(20), ierr 909 905 910 INTEGER, SAVE :: ntotal = 0911 906 912 907 icntrl(:) = 0 … … 2261 2256 REAL(dp), DIMENSION(:), INTENT(IN):: c 2262 2257 2263 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 2258 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 2264 2259 2265 2260 … … 3570 3565 3571 3566 INTEGER :: ier 3572 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 3573 INTEGER :: k, kk, j, jj 3567 REAL(kind=dp):: jvs(lu_nonzero), a 3574 3568 3575 3569 a = 0. … … 3986 3980 INTEGER, DIMENSION(20) :: istatus_u 3987 3981 INTEGER :: ierr_u 3988 INTEGER :: istatf3989 3982 INTEGER :: vl_dim_lo 3990 3983 … … 4023 4016 4024 4017 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 4025 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 4018 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 4026 4019 ENDIF 4027 4020 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:49 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:00:59 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 190 188 ! 191 189 ! File : chem_gasphase_mod_Global.f90 192 ! Time : Tue Mar 5 11:50:49 2019193 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm190 ! Time : Fri Mar 8 19:00:59 2019 191 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 194 192 ! Equation file : chem_gasphase_mod.kpp 195 193 ! Output root filename : chem_gasphase_mod … … 218 216 ! TEMP - Temperature 219 217 REAL(kind=dp):: temp 220 ! TSTART - Integration start time221 REAL(kind=dp):: tstart222 218 ! ATOL - Absolute tolerance 223 219 REAL(kind=dp):: atol(nvar) … … 258 254 ! 259 255 ! File : chem_gasphase_mod_JacobianSP.f90 260 ! Time : Tue Mar 5 11:50:49 2019261 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm256 ! Time : Fri Mar 8 19:00:59 2019 257 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 262 258 ! Equation file : chem_gasphase_mod.kpp 263 259 ! Output root filename : chem_gasphase_mod … … 302 298 ! 303 299 ! File : chem_gasphase_mod_Monitor.f90 304 ! Time : Tue Mar 5 11:50:49 2019305 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm300 ! Time : Fri Mar 8 19:00:59 2019 301 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 306 302 ! Equation file : chem_gasphase_mod.kpp 307 303 ! Output root filename : chem_gasphase_mod … … 362 358 ! 363 359 ! File : chem_gasphase_mod_Initialize.f90 364 ! Time : Tue Mar 5 11:50:49 2019365 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm360 ! Time : Fri Mar 8 19:00:59 2019 361 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 366 362 ! Equation file : chem_gasphase_mod.kpp 367 363 ! Output root filename : chem_gasphase_mod … … 388 384 ! 389 385 ! File : chem_gasphase_mod_Integrator.f90 390 ! Time : Tue Mar 5 11:50:49 2019391 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm386 ! Time : Fri Mar 8 19:00:59 2019 387 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 392 388 ! Equation file : chem_gasphase_mod.kpp 393 389 ! Output root filename : chem_gasphase_mod … … 446 442 ! 447 443 ! File : chem_gasphase_mod_LinearAlgebra.f90 448 ! Time : Tue Mar 5 11:50:49 2019449 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm444 ! Time : Fri Mar 8 19:00:59 2019 445 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 450 446 ! Equation file : chem_gasphase_mod.kpp 451 447 ! Output root filename : chem_gasphase_mod … … 473 469 ! 474 470 ! File : chem_gasphase_mod_Jacobian.f90 475 ! Time : Tue Mar 5 11:50:49 2019476 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm471 ! Time : Fri Mar 8 19:00:59 2019 472 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 477 473 ! Equation file : chem_gasphase_mod.kpp 478 474 ! Output root filename : chem_gasphase_mod … … 500 496 ! 501 497 ! File : chem_gasphase_mod_Function.f90 502 ! Time : Tue Mar 5 11:50:49 2019503 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm498 ! Time : Fri Mar 8 19:00:59 2019 499 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 504 500 ! Equation file : chem_gasphase_mod.kpp 505 501 ! Output root filename : chem_gasphase_mod … … 529 525 ! 530 526 ! File : chem_gasphase_mod_Rates.f90 531 ! Time : Tue Mar 5 11:50:49 2019532 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm527 ! Time : Fri Mar 8 19:00:59 2019 528 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 533 529 ! Equation file : chem_gasphase_mod.kpp 534 530 ! Output root filename : chem_gasphase_mod … … 555 551 ! 556 552 ! File : chem_gasphase_mod_Util.f90 557 ! Time : Tue Mar 5 11:50:49 2019558 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm553 ! Time : Fri Mar 8 19:00:59 2019 554 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 559 555 ! Equation file : chem_gasphase_mod.kpp 560 556 ! Output root filename : chem_gasphase_mod … … 676 672 677 673 678 INTEGER :: j,k674 INTEGER :: k 679 675 680 676 INTEGER :: i … … 718 714 INTEGER :: icntrl(20), istatus(20), ierr 719 715 720 INTEGER, SAVE :: ntotal = 0721 716 722 717 icntrl(:) = 0 … … 909 904 REAL(dp), DIMENSION(:), INTENT(IN):: c 910 905 911 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 906 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 912 907 913 908 … … 2218 2213 2219 2214 INTEGER :: ier 2220 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2221 INTEGER :: k, kk, j, jj 2215 REAL(kind=dp):: jvs(lu_nonzero), a 2222 2216 2223 2217 a = 0. … … 2265 2259 INTEGER, DIMENSION(20) :: istatus_u 2266 2260 INTEGER :: ierr_u 2267 INTEGER :: istatf2268 2261 INTEGER :: vl_dim_lo 2269 2262 … … 2302 2295 2303 2296 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2304 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2297 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2305 2298 ENDIF 2306 2299 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:50 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:00 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 189 187 ! 190 188 ! File : chem_gasphase_mod_Global.f90 191 ! Time : Tue Mar 5 11:50:50 2019192 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm189 ! Time : Fri Mar 8 19:01:00 2019 190 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 193 191 ! Equation file : chem_gasphase_mod.kpp 194 192 ! Output root filename : chem_gasphase_mod … … 217 215 ! TEMP - Temperature 218 216 REAL(kind=dp):: temp 219 ! TSTART - Integration start time220 REAL(kind=dp):: tstart221 217 ! ATOL - Absolute tolerance 222 218 REAL(kind=dp):: atol(nvar) … … 257 253 ! 258 254 ! File : chem_gasphase_mod_JacobianSP.f90 259 ! Time : Tue Mar 5 11:50:50 2019260 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm255 ! Time : Fri Mar 8 19:01:00 2019 256 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 261 257 ! Equation file : chem_gasphase_mod.kpp 262 258 ! Output root filename : chem_gasphase_mod … … 301 297 ! 302 298 ! File : chem_gasphase_mod_Monitor.f90 303 ! Time : Tue Mar 5 11:50:50 2019304 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm299 ! Time : Fri Mar 8 19:01:00 2019 300 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 305 301 ! Equation file : chem_gasphase_mod.kpp 306 302 ! Output root filename : chem_gasphase_mod … … 360 356 ! 361 357 ! File : chem_gasphase_mod_Initialize.f90 362 ! Time : Tue Mar 5 11:50:50 2019363 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm358 ! Time : Fri Mar 8 19:01:00 2019 359 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 364 360 ! Equation file : chem_gasphase_mod.kpp 365 361 ! Output root filename : chem_gasphase_mod … … 386 382 ! 387 383 ! File : chem_gasphase_mod_Integrator.f90 388 ! Time : Tue Mar 5 11:50:50 2019389 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm384 ! Time : Fri Mar 8 19:01:00 2019 385 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 390 386 ! Equation file : chem_gasphase_mod.kpp 391 387 ! Output root filename : chem_gasphase_mod … … 444 440 ! 445 441 ! File : chem_gasphase_mod_LinearAlgebra.f90 446 ! Time : Tue Mar 5 11:50:50 2019447 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm442 ! Time : Fri Mar 8 19:01:00 2019 443 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 448 444 ! Equation file : chem_gasphase_mod.kpp 449 445 ! Output root filename : chem_gasphase_mod … … 471 467 ! 472 468 ! File : chem_gasphase_mod_Jacobian.f90 473 ! Time : Tue Mar 5 11:50:50 2019474 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm469 ! Time : Fri Mar 8 19:01:00 2019 470 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 475 471 ! Equation file : chem_gasphase_mod.kpp 476 472 ! Output root filename : chem_gasphase_mod … … 498 494 ! 499 495 ! File : chem_gasphase_mod_Function.f90 500 ! Time : Tue Mar 5 11:50:50 2019501 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm496 ! Time : Fri Mar 8 19:01:00 2019 497 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 502 498 ! Equation file : chem_gasphase_mod.kpp 503 499 ! Output root filename : chem_gasphase_mod … … 527 523 ! 528 524 ! File : chem_gasphase_mod_Rates.f90 529 ! Time : Tue Mar 5 11:50:50 2019530 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm525 ! Time : Fri Mar 8 19:01:00 2019 526 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 531 527 ! Equation file : chem_gasphase_mod.kpp 532 528 ! Output root filename : chem_gasphase_mod … … 553 549 ! 554 550 ! File : chem_gasphase_mod_Util.f90 555 ! Time : Tue Mar 5 11:50:50 2019556 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm551 ! Time : Fri Mar 8 19:01:00 2019 552 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 557 553 ! Equation file : chem_gasphase_mod.kpp 558 554 ! Output root filename : chem_gasphase_mod … … 674 670 675 671 676 INTEGER :: j,k672 INTEGER :: k 677 673 678 674 INTEGER :: i … … 716 712 INTEGER :: icntrl(20), istatus(20), ierr 717 713 718 INTEGER, SAVE :: ntotal = 0719 714 720 715 icntrl(:) = 0 … … 900 895 REAL(dp), DIMENSION(:), INTENT(IN):: c 901 896 902 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 897 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 903 898 904 899 … … 2209 2204 2210 2205 INTEGER :: ier 2211 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2212 INTEGER :: k, kk, j, jj 2206 REAL(kind=dp):: jvs(lu_nonzero), a 2213 2207 2214 2208 a = 0. … … 2255 2249 INTEGER, DIMENSION(20) :: istatus_u 2256 2250 INTEGER :: ierr_u 2257 INTEGER :: istatf2258 2251 INTEGER :: vl_dim_lo 2259 2252 … … 2292 2285 2293 2286 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2294 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2287 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2295 2288 ENDIF 2296 2289 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:50 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:00 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 191 189 ! 192 190 ! File : chem_gasphase_mod_Global.f90 193 ! Time : Tue Mar 5 11:50:50 2019194 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm191 ! Time : Fri Mar 8 19:01:00 2019 192 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 195 193 ! Equation file : chem_gasphase_mod.kpp 196 194 ! Output root filename : chem_gasphase_mod … … 219 217 ! TEMP - Temperature 220 218 REAL(kind=dp):: temp 221 ! TSTART - Integration start time222 REAL(kind=dp):: tstart223 219 ! ATOL - Absolute tolerance 224 220 REAL(kind=dp):: atol(nvar) … … 259 255 ! 260 256 ! File : chem_gasphase_mod_JacobianSP.f90 261 ! Time : Tue Mar 5 11:50:50 2019262 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm257 ! Time : Fri Mar 8 19:01:00 2019 258 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 263 259 ! Equation file : chem_gasphase_mod.kpp 264 260 ! Output root filename : chem_gasphase_mod … … 303 299 ! 304 300 ! File : chem_gasphase_mod_Monitor.f90 305 ! Time : Tue Mar 5 11:50:50 2019306 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm301 ! Time : Fri Mar 8 19:01:00 2019 302 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 307 303 ! Equation file : chem_gasphase_mod.kpp 308 304 ! Output root filename : chem_gasphase_mod … … 363 359 ! 364 360 ! File : chem_gasphase_mod_Initialize.f90 365 ! Time : Tue Mar 5 11:50:50 2019366 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm361 ! Time : Fri Mar 8 19:01:00 2019 362 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 367 363 ! Equation file : chem_gasphase_mod.kpp 368 364 ! Output root filename : chem_gasphase_mod … … 389 385 ! 390 386 ! File : chem_gasphase_mod_Integrator.f90 391 ! Time : Tue Mar 5 11:50:50 2019392 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm387 ! Time : Fri Mar 8 19:01:00 2019 388 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 393 389 ! Equation file : chem_gasphase_mod.kpp 394 390 ! Output root filename : chem_gasphase_mod … … 447 443 ! 448 444 ! File : chem_gasphase_mod_LinearAlgebra.f90 449 ! Time : Tue Mar 5 11:50:50 2019450 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm445 ! Time : Fri Mar 8 19:01:00 2019 446 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 451 447 ! Equation file : chem_gasphase_mod.kpp 452 448 ! Output root filename : chem_gasphase_mod … … 474 470 ! 475 471 ! File : chem_gasphase_mod_Jacobian.f90 476 ! Time : Tue Mar 5 11:50:50 2019477 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm472 ! Time : Fri Mar 8 19:01:00 2019 473 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 478 474 ! Equation file : chem_gasphase_mod.kpp 479 475 ! Output root filename : chem_gasphase_mod … … 501 497 ! 502 498 ! File : chem_gasphase_mod_Function.f90 503 ! Time : Tue Mar 5 11:50:50 2019504 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm499 ! Time : Fri Mar 8 19:01:00 2019 500 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 505 501 ! Equation file : chem_gasphase_mod.kpp 506 502 ! Output root filename : chem_gasphase_mod … … 530 526 ! 531 527 ! File : chem_gasphase_mod_Rates.f90 532 ! Time : Tue Mar 5 11:50:50 2019533 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm528 ! Time : Fri Mar 8 19:01:00 2019 529 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 534 530 ! Equation file : chem_gasphase_mod.kpp 535 531 ! Output root filename : chem_gasphase_mod … … 556 552 ! 557 553 ! File : chem_gasphase_mod_Util.f90 558 ! Time : Tue Mar 5 11:50:50 2019559 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm554 ! Time : Fri Mar 8 19:01:00 2019 555 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 560 556 ! Equation file : chem_gasphase_mod.kpp 561 557 ! Output root filename : chem_gasphase_mod … … 677 673 678 674 679 INTEGER :: j,k675 INTEGER :: k 680 676 681 677 INTEGER :: i … … 719 715 INTEGER :: icntrl(20), istatus(20), ierr 720 716 721 INTEGER, SAVE :: ntotal = 0722 717 723 718 icntrl(:) = 0 … … 932 927 REAL(dp), DIMENSION(:), INTENT(IN):: c 933 928 934 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 929 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 935 930 936 931 … … 2241 2236 2242 2237 INTEGER :: ier 2243 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2244 INTEGER :: k, kk, j, jj 2238 REAL(kind=dp):: jvs(lu_nonzero), a 2245 2239 2246 2240 a = 0. … … 2296 2290 INTEGER, DIMENSION(20) :: istatus_u 2297 2291 INTEGER :: ierr_u 2298 INTEGER :: istatf2299 2292 INTEGER :: vl_dim_lo 2300 2293 … … 2333 2326 2334 2327 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2335 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2328 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2336 2329 ENDIF 2337 2330 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:53 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:03 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 192 190 ! 193 191 ! File : chem_gasphase_mod_Global.f90 194 ! Time : Tue Mar 5 11:50:53 2019195 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm192 ! Time : Fri Mar 8 19:01:03 2019 193 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 196 194 ! Equation file : chem_gasphase_mod.kpp 197 195 ! Output root filename : chem_gasphase_mod … … 220 218 ! TEMP - Temperature 221 219 REAL(kind=dp):: temp 222 ! TSTART - Integration start time223 REAL(kind=dp):: tstart224 220 ! ATOL - Absolute tolerance 225 221 REAL(kind=dp):: atol(nvar) … … 260 256 ! 261 257 ! File : chem_gasphase_mod_JacobianSP.f90 262 ! Time : Tue Mar 5 11:50:53 2019263 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm258 ! Time : Fri Mar 8 19:01:03 2019 259 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 264 260 ! Equation file : chem_gasphase_mod.kpp 265 261 ! Output root filename : chem_gasphase_mod … … 304 300 ! 305 301 ! File : chem_gasphase_mod_Monitor.f90 306 ! Time : Tue Mar 5 11:50:53 2019307 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm302 ! Time : Fri Mar 8 19:01:03 2019 303 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 308 304 ! Equation file : chem_gasphase_mod.kpp 309 305 ! Output root filename : chem_gasphase_mod … … 366 362 ! 367 363 ! File : chem_gasphase_mod_Initialize.f90 368 ! Time : Tue Mar 5 11:50:53 2019369 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm364 ! Time : Fri Mar 8 19:01:03 2019 365 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 370 366 ! Equation file : chem_gasphase_mod.kpp 371 367 ! Output root filename : chem_gasphase_mod … … 392 388 ! 393 389 ! File : chem_gasphase_mod_Integrator.f90 394 ! Time : Tue Mar 5 11:50:53 2019395 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm390 ! Time : Fri Mar 8 19:01:03 2019 391 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 396 392 ! Equation file : chem_gasphase_mod.kpp 397 393 ! Output root filename : chem_gasphase_mod … … 450 446 ! 451 447 ! File : chem_gasphase_mod_LinearAlgebra.f90 452 ! Time : Tue Mar 5 11:50:53 2019453 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm448 ! Time : Fri Mar 8 19:01:03 2019 449 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 454 450 ! Equation file : chem_gasphase_mod.kpp 455 451 ! Output root filename : chem_gasphase_mod … … 477 473 ! 478 474 ! File : chem_gasphase_mod_Jacobian.f90 479 ! Time : Tue Mar 5 11:50:53 2019480 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm475 ! Time : Fri Mar 8 19:01:03 2019 476 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 481 477 ! Equation file : chem_gasphase_mod.kpp 482 478 ! Output root filename : chem_gasphase_mod … … 504 500 ! 505 501 ! File : chem_gasphase_mod_Function.f90 506 ! Time : Tue Mar 5 11:50:53 2019507 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm502 ! Time : Fri Mar 8 19:01:03 2019 503 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 508 504 ! Equation file : chem_gasphase_mod.kpp 509 505 ! Output root filename : chem_gasphase_mod … … 533 529 ! 534 530 ! File : chem_gasphase_mod_Rates.f90 535 ! Time : Tue Mar 5 11:50:53 2019536 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm531 ! Time : Fri Mar 8 19:01:03 2019 532 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 537 533 ! Equation file : chem_gasphase_mod.kpp 538 534 ! Output root filename : chem_gasphase_mod … … 559 555 ! 560 556 ! File : chem_gasphase_mod_Util.f90 561 ! Time : Tue Mar 5 11:50:53 2019562 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm557 ! Time : Fri Mar 8 19:01:03 2019 558 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 563 559 ! Equation file : chem_gasphase_mod.kpp 564 560 ! Output root filename : chem_gasphase_mod … … 680 676 681 677 682 INTEGER :: j,k678 INTEGER :: k 683 679 684 680 INTEGER :: i … … 722 718 INTEGER :: icntrl(20), istatus(20), ierr 723 719 724 INTEGER, SAVE :: ntotal = 0725 720 726 721 icntrl(:) = 0 … … 942 937 REAL(dp), DIMENSION(:), INTENT(IN):: c 943 938 944 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 939 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 945 940 946 941 … … 2251 2246 2252 2247 INTEGER :: ier 2253 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2254 INTEGER :: k, kk, j, jj 2248 REAL(kind=dp):: jvs(lu_nonzero), a 2255 2249 2256 2250 a = 0. … … 2307 2301 INTEGER, DIMENSION(20) :: istatus_u 2308 2302 INTEGER :: ierr_u 2309 INTEGER :: istatf2310 2303 INTEGER :: vl_dim_lo 2311 2304 … … 2344 2337 2345 2338 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2346 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2339 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2347 2340 ENDIF 2348 2341 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:51 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:01 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 191 189 ! 192 190 ! File : chem_gasphase_mod_Global.f90 193 ! Time : Tue Mar 5 11:50:51 2019194 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm191 ! Time : Fri Mar 8 19:01:01 2019 192 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 195 193 ! Equation file : chem_gasphase_mod.kpp 196 194 ! Output root filename : chem_gasphase_mod … … 219 217 ! TEMP - Temperature 220 218 REAL(kind=dp):: temp 221 ! TSTART - Integration start time222 REAL(kind=dp):: tstart223 219 ! ATOL - Absolute tolerance 224 220 REAL(kind=dp):: atol(nvar) … … 268 264 ! 269 265 ! File : chem_gasphase_mod_JacobianSP.f90 270 ! Time : Tue Mar 5 11:50:51 2019271 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm266 ! Time : Fri Mar 8 19:01:01 2019 267 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 272 268 ! Equation file : chem_gasphase_mod.kpp 273 269 ! Output root filename : chem_gasphase_mod … … 312 308 ! 313 309 ! File : chem_gasphase_mod_Monitor.f90 314 ! Time : Tue Mar 5 11:50:51 2019315 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm310 ! Time : Fri Mar 8 19:01:01 2019 311 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 316 312 ! Equation file : chem_gasphase_mod.kpp 317 313 ! Output root filename : chem_gasphase_mod … … 372 368 ! 373 369 ! File : chem_gasphase_mod_Initialize.f90 374 ! Time : Tue Mar 5 11:50:51 2019375 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm370 ! Time : Fri Mar 8 19:01:01 2019 371 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 376 372 ! Equation file : chem_gasphase_mod.kpp 377 373 ! Output root filename : chem_gasphase_mod … … 398 394 ! 399 395 ! File : chem_gasphase_mod_Integrator.f90 400 ! Time : Tue Mar 5 11:50:51 2019401 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm396 ! Time : Fri Mar 8 19:01:01 2019 397 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 402 398 ! Equation file : chem_gasphase_mod.kpp 403 399 ! Output root filename : chem_gasphase_mod … … 456 452 ! 457 453 ! File : chem_gasphase_mod_LinearAlgebra.f90 458 ! Time : Tue Mar 5 11:50:51 2019459 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm454 ! Time : Fri Mar 8 19:01:01 2019 455 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 460 456 ! Equation file : chem_gasphase_mod.kpp 461 457 ! Output root filename : chem_gasphase_mod … … 483 479 ! 484 480 ! File : chem_gasphase_mod_Jacobian.f90 485 ! Time : Tue Mar 5 11:50:51 2019486 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm481 ! Time : Fri Mar 8 19:01:01 2019 482 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 487 483 ! Equation file : chem_gasphase_mod.kpp 488 484 ! Output root filename : chem_gasphase_mod … … 510 506 ! 511 507 ! File : chem_gasphase_mod_Function.f90 512 ! Time : Tue Mar 5 11:50:51 2019513 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm508 ! Time : Fri Mar 8 19:01:01 2019 509 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 514 510 ! Equation file : chem_gasphase_mod.kpp 515 511 ! Output root filename : chem_gasphase_mod … … 539 535 ! 540 536 ! File : chem_gasphase_mod_Rates.f90 541 ! Time : Tue Mar 5 11:50:51 2019542 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm537 ! Time : Fri Mar 8 19:01:01 2019 538 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 543 539 ! Equation file : chem_gasphase_mod.kpp 544 540 ! Output root filename : chem_gasphase_mod … … 565 561 ! 566 562 ! File : chem_gasphase_mod_Util.f90 567 ! Time : Tue Mar 5 11:50:51 2019568 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm563 ! Time : Fri Mar 8 19:01:01 2019 564 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 569 565 ! Equation file : chem_gasphase_mod.kpp 570 566 ! Output root filename : chem_gasphase_mod … … 686 682 687 683 688 INTEGER :: j,k684 INTEGER :: k 689 685 690 686 INTEGER :: i … … 728 724 INTEGER :: icntrl(20), istatus(20), ierr 729 725 730 INTEGER, SAVE :: ntotal = 0731 726 732 727 icntrl(:) = 0 … … 941 936 REAL(dp), DIMENSION(:), INTENT(IN):: c 942 937 943 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 938 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 944 939 945 940 … … 2250 2245 2251 2246 INTEGER :: ier 2252 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2253 INTEGER :: k, kk, j, jj 2247 REAL(kind=dp):: jvs(lu_nonzero), a 2254 2248 2255 2249 a = 0. … … 2305 2299 INTEGER, DIMENSION(20) :: istatus_u 2306 2300 INTEGER :: ierr_u 2307 INTEGER :: istatf2308 2301 INTEGER :: vl_dim_lo 2309 2302 … … 2342 2335 2343 2336 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2344 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2337 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2345 2338 ENDIF 2346 2339 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:51 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:01 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 203 201 ! 204 202 ! File : chem_gasphase_mod_Global.f90 205 ! Time : Tue Mar 5 11:50:51 2019206 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm203 ! Time : Fri Mar 8 19:01:01 2019 204 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 207 205 ! Equation file : chem_gasphase_mod.kpp 208 206 ! Output root filename : chem_gasphase_mod … … 232 230 ! TEMP - Temperature 233 231 REAL(kind=dp):: temp 234 ! TSTART - Integration start time235 REAL(kind=dp):: tstart236 232 ! ATOL - Absolute tolerance 237 233 REAL(kind=dp):: atol(nvar) … … 278 274 ! 279 275 ! File : chem_gasphase_mod_JacobianSP.f90 280 ! Time : Tue Mar 5 11:50:51 2019281 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm276 ! Time : Fri Mar 8 19:01:01 2019 277 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 282 278 ! Equation file : chem_gasphase_mod.kpp 283 279 ! Output root filename : chem_gasphase_mod … … 330 326 ! 331 327 ! File : chem_gasphase_mod_Monitor.f90 332 ! Time : Tue Mar 5 11:50:51 2019333 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm328 ! Time : Fri Mar 8 19:01:01 2019 329 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 334 330 ! Equation file : chem_gasphase_mod.kpp 335 331 ! Output root filename : chem_gasphase_mod … … 404 400 ! 405 401 ! File : chem_gasphase_mod_Initialize.f90 406 ! Time : Tue Mar 5 11:50:51 2019407 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm402 ! Time : Fri Mar 8 19:01:01 2019 403 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 408 404 ! Equation file : chem_gasphase_mod.kpp 409 405 ! Output root filename : chem_gasphase_mod … … 430 426 ! 431 427 ! File : chem_gasphase_mod_Integrator.f90 432 ! Time : Tue Mar 5 11:50:51 2019433 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm428 ! Time : Fri Mar 8 19:01:01 2019 429 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 434 430 ! Equation file : chem_gasphase_mod.kpp 435 431 ! Output root filename : chem_gasphase_mod … … 488 484 ! 489 485 ! File : chem_gasphase_mod_LinearAlgebra.f90 490 ! Time : Tue Mar 5 11:50:51 2019491 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm486 ! Time : Fri Mar 8 19:01:01 2019 487 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 492 488 ! Equation file : chem_gasphase_mod.kpp 493 489 ! Output root filename : chem_gasphase_mod … … 515 511 ! 516 512 ! File : chem_gasphase_mod_Jacobian.f90 517 ! Time : Tue Mar 5 11:50:51 2019518 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm513 ! Time : Fri Mar 8 19:01:01 2019 514 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 519 515 ! Equation file : chem_gasphase_mod.kpp 520 516 ! Output root filename : chem_gasphase_mod … … 542 538 ! 543 539 ! File : chem_gasphase_mod_Function.f90 544 ! Time : Tue Mar 5 11:50:51 2019545 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm540 ! Time : Fri Mar 8 19:01:01 2019 541 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 546 542 ! Equation file : chem_gasphase_mod.kpp 547 543 ! Output root filename : chem_gasphase_mod … … 571 567 ! 572 568 ! File : chem_gasphase_mod_Rates.f90 573 ! Time : Tue Mar 5 11:50:51 2019574 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm569 ! Time : Fri Mar 8 19:01:01 2019 570 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 575 571 ! Equation file : chem_gasphase_mod.kpp 576 572 ! Output root filename : chem_gasphase_mod … … 597 593 ! 598 594 ! File : chem_gasphase_mod_Util.f90 599 ! Time : Tue Mar 5 11:50:51 2019600 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm595 ! Time : Fri Mar 8 19:01:01 2019 596 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 601 597 ! Equation file : chem_gasphase_mod.kpp 602 598 ! Output root filename : chem_gasphase_mod … … 718 714 719 715 720 INTEGER :: j,k716 INTEGER :: k 721 717 722 718 INTEGER :: i … … 760 756 INTEGER :: icntrl(20), istatus(20), ierr 761 757 762 INTEGER, SAVE :: ntotal = 0763 758 764 759 icntrl(:) = 0 … … 1100 1095 REAL(dp), DIMENSION(:), INTENT(IN):: c 1101 1096 1102 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 1097 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 1103 1098 1104 1099 … … 2409 2404 2410 2405 INTEGER :: ier 2411 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2412 INTEGER :: k, kk, j, jj 2406 REAL(kind=dp):: jvs(lu_nonzero), a 2413 2407 2414 2408 a = 0. … … 2496 2490 INTEGER, DIMENSION(20) :: istatus_u 2497 2491 INTEGER :: ierr_u 2498 INTEGER :: istatf2499 2492 INTEGER :: vl_dim_lo 2500 2493 … … 2533 2526 2534 2527 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2535 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2528 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2536 2529 ENDIF 2537 2530 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:51 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:01 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 193 191 ! 194 192 ! File : chem_gasphase_mod_Global.f90 195 ! Time : Tue Mar 5 11:50:51 2019196 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm193 ! Time : Fri Mar 8 19:01:01 2019 194 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 197 195 ! Equation file : chem_gasphase_mod.kpp 198 196 ! Output root filename : chem_gasphase_mod … … 221 219 ! TEMP - Temperature 222 220 REAL(kind=dp):: temp 223 ! TSTART - Integration start time224 REAL(kind=dp):: tstart225 221 ! ATOL - Absolute tolerance 226 222 REAL(kind=dp):: atol(nvar) … … 263 259 ! 264 260 ! File : chem_gasphase_mod_JacobianSP.f90 265 ! Time : Tue Mar 5 11:50:51 2019266 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm261 ! Time : Fri Mar 8 19:01:01 2019 262 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 267 263 ! Equation file : chem_gasphase_mod.kpp 268 264 ! Output root filename : chem_gasphase_mod … … 307 303 ! 308 304 ! File : chem_gasphase_mod_Monitor.f90 309 ! Time : Tue Mar 5 11:50:51 2019310 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm305 ! Time : Fri Mar 8 19:01:01 2019 306 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 311 307 ! Equation file : chem_gasphase_mod.kpp 312 308 ! Output root filename : chem_gasphase_mod … … 371 367 ! 372 368 ! File : chem_gasphase_mod_Initialize.f90 373 ! Time : Tue Mar 5 11:50:51 2019374 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm369 ! Time : Fri Mar 8 19:01:01 2019 370 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 375 371 ! Equation file : chem_gasphase_mod.kpp 376 372 ! Output root filename : chem_gasphase_mod … … 397 393 ! 398 394 ! File : chem_gasphase_mod_Integrator.f90 399 ! Time : Tue Mar 5 11:50:51 2019400 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm395 ! Time : Fri Mar 8 19:01:01 2019 396 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 401 397 ! Equation file : chem_gasphase_mod.kpp 402 398 ! Output root filename : chem_gasphase_mod … … 455 451 ! 456 452 ! File : chem_gasphase_mod_LinearAlgebra.f90 457 ! Time : Tue Mar 5 11:50:51 2019458 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm453 ! Time : Fri Mar 8 19:01:01 2019 454 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 459 455 ! Equation file : chem_gasphase_mod.kpp 460 456 ! Output root filename : chem_gasphase_mod … … 482 478 ! 483 479 ! File : chem_gasphase_mod_Jacobian.f90 484 ! Time : Tue Mar 5 11:50:51 2019485 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm480 ! Time : Fri Mar 8 19:01:01 2019 481 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 486 482 ! Equation file : chem_gasphase_mod.kpp 487 483 ! Output root filename : chem_gasphase_mod … … 509 505 ! 510 506 ! File : chem_gasphase_mod_Function.f90 511 ! Time : Tue Mar 5 11:50:51 2019512 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm507 ! Time : Fri Mar 8 19:01:01 2019 508 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 513 509 ! Equation file : chem_gasphase_mod.kpp 514 510 ! Output root filename : chem_gasphase_mod … … 538 534 ! 539 535 ! File : chem_gasphase_mod_Rates.f90 540 ! Time : Tue Mar 5 11:50:51 2019541 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm536 ! Time : Fri Mar 8 19:01:01 2019 537 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 542 538 ! Equation file : chem_gasphase_mod.kpp 543 539 ! Output root filename : chem_gasphase_mod … … 564 560 ! 565 561 ! File : chem_gasphase_mod_Util.f90 566 ! Time : Tue Mar 5 11:50:51 2019567 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm562 ! Time : Fri Mar 8 19:01:01 2019 563 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 568 564 ! Equation file : chem_gasphase_mod.kpp 569 565 ! Output root filename : chem_gasphase_mod … … 685 681 686 682 687 INTEGER :: j,k683 INTEGER :: k 688 684 689 685 INTEGER :: i … … 727 723 INTEGER :: icntrl(20), istatus(20), ierr 728 724 729 INTEGER, SAVE :: ntotal = 0730 725 731 726 icntrl(:) = 0 … … 939 934 REAL(dp), DIMENSION(:), INTENT(IN):: c 940 935 941 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 936 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 942 937 943 938 … … 2248 2243 2249 2244 INTEGER :: ier 2250 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2251 INTEGER :: k, kk, j, jj 2245 REAL(kind=dp):: jvs(lu_nonzero), a 2252 2246 2253 2247 a = 0. … … 2298 2292 INTEGER, DIMENSION(20) :: istatus_u 2299 2293 INTEGER :: ierr_u 2300 INTEGER :: istatf2301 2294 INTEGER :: vl_dim_lo 2302 2295 … … 2335 2328 2336 2329 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2337 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2330 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2338 2331 ENDIF 2339 2332 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:52 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:02 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 199 197 ! 200 198 ! File : chem_gasphase_mod_Global.f90 201 ! Time : Tue Mar 5 11:50:52 2019202 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm199 ! Time : Fri Mar 8 19:01:02 2019 200 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 203 201 ! Equation file : chem_gasphase_mod.kpp 204 202 ! Output root filename : chem_gasphase_mod … … 228 226 ! TEMP - Temperature 229 227 REAL(kind=dp):: temp 230 ! TSTART - Integration start time231 REAL(kind=dp):: tstart232 228 ! ATOL - Absolute tolerance 233 229 REAL(kind=dp):: atol(nvar) … … 268 264 ! 269 265 ! File : chem_gasphase_mod_JacobianSP.f90 270 ! Time : Tue Mar 5 11:50:52 2019271 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm266 ! Time : Fri Mar 8 19:01:02 2019 267 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 272 268 ! Equation file : chem_gasphase_mod.kpp 273 269 ! Output root filename : chem_gasphase_mod … … 318 314 ! 319 315 ! File : chem_gasphase_mod_Monitor.f90 320 ! Time : Tue Mar 5 11:50:52 2019321 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm316 ! Time : Fri Mar 8 19:01:02 2019 317 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 322 318 ! Equation file : chem_gasphase_mod.kpp 323 319 ! Output root filename : chem_gasphase_mod … … 387 383 ! 388 384 ! File : chem_gasphase_mod_Initialize.f90 389 ! Time : Tue Mar 5 11:50:52 2019390 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm385 ! Time : Fri Mar 8 19:01:02 2019 386 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 391 387 ! Equation file : chem_gasphase_mod.kpp 392 388 ! Output root filename : chem_gasphase_mod … … 413 409 ! 414 410 ! File : chem_gasphase_mod_Integrator.f90 415 ! Time : Tue Mar 5 11:50:52 2019416 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm411 ! Time : Fri Mar 8 19:01:02 2019 412 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 417 413 ! Equation file : chem_gasphase_mod.kpp 418 414 ! Output root filename : chem_gasphase_mod … … 471 467 ! 472 468 ! File : chem_gasphase_mod_LinearAlgebra.f90 473 ! Time : Tue Mar 5 11:50:52 2019474 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm469 ! Time : Fri Mar 8 19:01:02 2019 470 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 475 471 ! Equation file : chem_gasphase_mod.kpp 476 472 ! Output root filename : chem_gasphase_mod … … 498 494 ! 499 495 ! File : chem_gasphase_mod_Jacobian.f90 500 ! Time : Tue Mar 5 11:50:52 2019501 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm496 ! Time : Fri Mar 8 19:01:02 2019 497 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 502 498 ! Equation file : chem_gasphase_mod.kpp 503 499 ! Output root filename : chem_gasphase_mod … … 525 521 ! 526 522 ! File : chem_gasphase_mod_Function.f90 527 ! Time : Tue Mar 5 11:50:52 2019528 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm523 ! Time : Fri Mar 8 19:01:02 2019 524 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 529 525 ! Equation file : chem_gasphase_mod.kpp 530 526 ! Output root filename : chem_gasphase_mod … … 554 550 ! 555 551 ! File : chem_gasphase_mod_Rates.f90 556 ! Time : Tue Mar 5 11:50:52 2019557 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm552 ! Time : Fri Mar 8 19:01:02 2019 553 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 558 554 ! Equation file : chem_gasphase_mod.kpp 559 555 ! Output root filename : chem_gasphase_mod … … 580 576 ! 581 577 ! File : chem_gasphase_mod_Util.f90 582 ! Time : Tue Mar 5 11:50:52 2019583 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm578 ! Time : Fri Mar 8 19:01:02 2019 579 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 584 580 ! Equation file : chem_gasphase_mod.kpp 585 581 ! Output root filename : chem_gasphase_mod … … 701 697 702 698 703 INTEGER :: j,k699 INTEGER :: k 704 700 705 701 INTEGER :: i … … 743 739 INTEGER :: icntrl(20), istatus(20), ierr 744 740 745 INTEGER, SAVE :: ntotal = 0746 741 747 742 icntrl(:) = 0 … … 1055 1050 REAL(dp), DIMENSION(:), INTENT(IN):: c 1056 1051 1057 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 1052 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 1058 1053 1059 1054 … … 2364 2359 2365 2360 INTEGER :: ier 2366 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2367 INTEGER :: k, kk, j, jj 2361 REAL(kind=dp):: jvs(lu_nonzero), a 2368 2362 2369 2363 a = 0. … … 2448 2442 INTEGER, DIMENSION(20) :: istatus_u 2449 2443 INTEGER :: ierr_u 2450 INTEGER :: istatf2451 2444 INTEGER :: vl_dim_lo 2452 2445 … … 2485 2478 2486 2479 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2487 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2480 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2488 2481 ENDIF 2489 2482 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:52 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:02 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 200 198 ! 201 199 ! File : chem_gasphase_mod_Global.f90 202 ! Time : Tue Mar 5 11:50:52 2019203 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm200 ! Time : Fri Mar 8 19:01:02 2019 201 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 204 202 ! Equation file : chem_gasphase_mod.kpp 205 203 ! Output root filename : chem_gasphase_mod … … 229 227 ! TEMP - Temperature 230 228 REAL(kind=dp):: temp 231 ! TSTART - Integration start time232 REAL(kind=dp):: tstart233 229 ! ATOL - Absolute tolerance 234 230 REAL(kind=dp):: atol(nvar) … … 269 265 ! 270 266 ! File : chem_gasphase_mod_JacobianSP.f90 271 ! Time : Tue Mar 5 11:50:52 2019272 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm267 ! Time : Fri Mar 8 19:01:02 2019 268 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 273 269 ! Equation file : chem_gasphase_mod.kpp 274 270 ! Output root filename : chem_gasphase_mod … … 319 315 ! 320 316 ! File : chem_gasphase_mod_Monitor.f90 321 ! Time : Tue Mar 5 11:50:52 2019322 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm317 ! Time : Fri Mar 8 19:01:02 2019 318 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 323 319 ! Equation file : chem_gasphase_mod.kpp 324 320 ! Output root filename : chem_gasphase_mod … … 389 385 ! 390 386 ! File : chem_gasphase_mod_Initialize.f90 391 ! Time : Tue Mar 5 11:50:52 2019392 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm387 ! Time : Fri Mar 8 19:01:02 2019 388 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 393 389 ! Equation file : chem_gasphase_mod.kpp 394 390 ! Output root filename : chem_gasphase_mod … … 415 411 ! 416 412 ! File : chem_gasphase_mod_Integrator.f90 417 ! Time : Tue Mar 5 11:50:52 2019418 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm413 ! Time : Fri Mar 8 19:01:02 2019 414 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 419 415 ! Equation file : chem_gasphase_mod.kpp 420 416 ! Output root filename : chem_gasphase_mod … … 473 469 ! 474 470 ! File : chem_gasphase_mod_LinearAlgebra.f90 475 ! Time : Tue Mar 5 11:50:52 2019476 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm471 ! Time : Fri Mar 8 19:01:02 2019 472 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 477 473 ! Equation file : chem_gasphase_mod.kpp 478 474 ! Output root filename : chem_gasphase_mod … … 500 496 ! 501 497 ! File : chem_gasphase_mod_Jacobian.f90 502 ! Time : Tue Mar 5 11:50:52 2019503 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm498 ! Time : Fri Mar 8 19:01:02 2019 499 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 504 500 ! Equation file : chem_gasphase_mod.kpp 505 501 ! Output root filename : chem_gasphase_mod … … 527 523 ! 528 524 ! File : chem_gasphase_mod_Function.f90 529 ! Time : Tue Mar 5 11:50:52 2019530 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm525 ! Time : Fri Mar 8 19:01:02 2019 526 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 531 527 ! Equation file : chem_gasphase_mod.kpp 532 528 ! Output root filename : chem_gasphase_mod … … 556 552 ! 557 553 ! File : chem_gasphase_mod_Rates.f90 558 ! Time : Tue Mar 5 11:50:52 2019559 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm554 ! Time : Fri Mar 8 19:01:02 2019 555 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 560 556 ! Equation file : chem_gasphase_mod.kpp 561 557 ! Output root filename : chem_gasphase_mod … … 582 578 ! 583 579 ! File : chem_gasphase_mod_Util.f90 584 ! Time : Tue Mar 5 11:50:52 2019585 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm580 ! Time : Fri Mar 8 19:01:02 2019 581 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 586 582 ! Equation file : chem_gasphase_mod.kpp 587 583 ! Output root filename : chem_gasphase_mod … … 703 699 704 700 705 INTEGER :: j,k701 INTEGER :: k 706 702 707 703 INTEGER :: i … … 745 741 INTEGER :: icntrl(20), istatus(20), ierr 746 742 747 INTEGER, SAVE :: ntotal = 0748 743 749 744 icntrl(:) = 0 … … 1063 1058 REAL(dp), DIMENSION(:), INTENT(IN):: c 1064 1059 1065 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 1060 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 1066 1061 1067 1062 … … 2372 2367 2373 2368 INTEGER :: ier 2374 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2375 INTEGER :: k, kk, j, jj 2369 REAL(kind=dp):: jvs(lu_nonzero), a 2376 2370 2377 2371 a = 0. … … 2454 2448 INTEGER, DIMENSION(20) :: istatus_u 2455 2449 INTEGER :: ierr_u 2456 INTEGER :: istatf2457 2450 INTEGER :: vl_dim_lo 2458 2451 … … 2491 2484 2492 2485 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2493 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2486 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2494 2487 ENDIF 2495 2488 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.f90
r3780 r3789 97 97 98 98 99 INTEGER, DIMENSION(vl_dim) :: kacc, krej100 INTEGER, DIMENSION(vl_dim) :: ierrv101 99 LOGICAL :: data_loaded = .FALSE. 102 100 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ … … 115 113 ! 116 114 ! File : chem_gasphase_mod_Parameters.f90 117 ! Time : Tue Mar 5 11:50:53 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:03 2019 116 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 119 117 ! Equation file : chem_gasphase_mod.kpp 120 118 ! Output root filename : chem_gasphase_mod … … 207 205 ! 208 206 ! File : chem_gasphase_mod_Global.f90 209 ! Time : Tue Mar 5 11:50:53 2019210 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm207 ! Time : Fri Mar 8 19:01:03 2019 208 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 211 209 ! Equation file : chem_gasphase_mod.kpp 212 210 ! Output root filename : chem_gasphase_mod … … 236 234 ! TEMP - Temperature 237 235 REAL(kind=dp):: temp 238 ! TSTART - Integration start time239 REAL(kind=dp):: tstart240 236 ! ATOL - Absolute tolerance 241 237 REAL(kind=dp):: atol(nvar) … … 276 272 ! 277 273 ! File : chem_gasphase_mod_JacobianSP.f90 278 ! Time : Tue Mar 5 11:50:53 2019279 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm274 ! Time : Fri Mar 8 19:01:03 2019 275 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 280 276 ! Equation file : chem_gasphase_mod.kpp 281 277 ! Output root filename : chem_gasphase_mod … … 332 328 ! 333 329 ! File : chem_gasphase_mod_Monitor.f90 334 ! Time : Tue Mar 5 11:50:53 2019335 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm330 ! Time : Fri Mar 8 19:01:03 2019 331 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 336 332 ! Equation file : chem_gasphase_mod.kpp 337 333 ! Output root filename : chem_gasphase_mod … … 408 404 ! 409 405 ! File : chem_gasphase_mod_Initialize.f90 410 ! Time : Tue Mar 5 11:50:53 2019411 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm406 ! Time : Fri Mar 8 19:01:03 2019 407 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 412 408 ! Equation file : chem_gasphase_mod.kpp 413 409 ! Output root filename : chem_gasphase_mod … … 434 430 ! 435 431 ! File : chem_gasphase_mod_Integrator.f90 436 ! Time : Tue Mar 5 11:50:53 2019437 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm432 ! Time : Fri Mar 8 19:01:03 2019 433 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 438 434 ! Equation file : chem_gasphase_mod.kpp 439 435 ! Output root filename : chem_gasphase_mod … … 492 488 ! 493 489 ! File : chem_gasphase_mod_LinearAlgebra.f90 494 ! Time : Tue Mar 5 11:50:53 2019495 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm490 ! Time : Fri Mar 8 19:01:03 2019 491 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 496 492 ! Equation file : chem_gasphase_mod.kpp 497 493 ! Output root filename : chem_gasphase_mod … … 519 515 ! 520 516 ! File : chem_gasphase_mod_Jacobian.f90 521 ! Time : Tue Mar 5 11:50:53 2019522 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm517 ! Time : Fri Mar 8 19:01:03 2019 518 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 523 519 ! Equation file : chem_gasphase_mod.kpp 524 520 ! Output root filename : chem_gasphase_mod … … 546 542 ! 547 543 ! File : chem_gasphase_mod_Function.f90 548 ! Time : Tue Mar 5 11:50:53 2019549 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm544 ! Time : Fri Mar 8 19:01:03 2019 545 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 550 546 ! Equation file : chem_gasphase_mod.kpp 551 547 ! Output root filename : chem_gasphase_mod … … 575 571 ! 576 572 ! File : chem_gasphase_mod_Rates.f90 577 ! Time : Tue Mar 5 11:50:53 2019578 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm573 ! Time : Fri Mar 8 19:01:03 2019 574 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 579 575 ! Equation file : chem_gasphase_mod.kpp 580 576 ! Output root filename : chem_gasphase_mod … … 601 597 ! 602 598 ! File : chem_gasphase_mod_Util.f90 603 ! Time : Tue Mar 5 11:50:53 2019604 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm599 ! Time : Fri Mar 8 19:01:03 2019 600 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 605 601 ! Equation file : chem_gasphase_mod.kpp 606 602 ! Output root filename : chem_gasphase_mod … … 722 718 723 719 724 INTEGER :: j,k720 INTEGER :: k 725 721 726 722 INTEGER :: i … … 768 764 INTEGER :: icntrl(20), istatus(20), ierr 769 765 770 INTEGER, SAVE :: ntotal = 0771 766 772 767 icntrl(:) = 0 … … 1165 1160 REAL(dp), DIMENSION(:), INTENT(IN):: c 1166 1161 1167 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 1162 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 1168 1163 1169 1164 … … 2474 2469 2475 2470 INTEGER :: ier 2476 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2477 INTEGER :: k, kk, j, jj 2471 REAL(kind=dp):: jvs(lu_nonzero), a 2478 2472 2479 2473 a = 0. … … 2582 2576 INTEGER, DIMENSION(20) :: istatus_u 2583 2577 INTEGER :: ierr_u 2584 INTEGER :: istatf2585 2578 INTEGER :: vl_dim_lo 2586 2579 … … 2619 2612 2620 2613 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2621 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2614 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2622 2615 ENDIF 2623 2616
Note: See TracChangeset
for help on using the changeset viewer.
