Changeset 3789 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/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_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
Note: See TracChangeset
for help on using the changeset viewer.
