Changeset 3789 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.f90
- Timestamp:
- Mar 8, 2019 6:04:30 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.
