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