- Timestamp:
- Mar 8, 2019 6:04:30 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note: See TracChangeset
for help on using the changeset viewer.