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