- 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_passive1/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:50 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:00 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 … … 189 187 ! 190 188 ! File : chem_gasphase_mod_Global.f90 191 ! Time : Tue Mar 5 11:50:50 2019192 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm189 ! Time : Fri Mar 8 19:01:00 2019 190 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 193 191 ! Equation file : chem_gasphase_mod.kpp 194 192 ! Output root filename : chem_gasphase_mod … … 217 215 ! TEMP - Temperature 218 216 REAL(kind=dp):: temp 219 ! TSTART - Integration start time220 REAL(kind=dp):: tstart221 217 ! ATOL - Absolute tolerance 222 218 REAL(kind=dp):: atol(nvar) … … 257 253 ! 258 254 ! File : chem_gasphase_mod_JacobianSP.f90 259 ! Time : Tue Mar 5 11:50:50 2019260 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm255 ! Time : Fri Mar 8 19:01:00 2019 256 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 261 257 ! Equation file : chem_gasphase_mod.kpp 262 258 ! Output root filename : chem_gasphase_mod … … 301 297 ! 302 298 ! File : chem_gasphase_mod_Monitor.f90 303 ! Time : Tue Mar 5 11:50:50 2019304 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm299 ! Time : Fri Mar 8 19:01:00 2019 300 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 305 301 ! Equation file : chem_gasphase_mod.kpp 306 302 ! Output root filename : chem_gasphase_mod … … 360 356 ! 361 357 ! File : chem_gasphase_mod_Initialize.f90 362 ! Time : Tue Mar 5 11:50:50 2019363 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm358 ! Time : Fri Mar 8 19:01:00 2019 359 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 364 360 ! Equation file : chem_gasphase_mod.kpp 365 361 ! Output root filename : chem_gasphase_mod … … 386 382 ! 387 383 ! File : chem_gasphase_mod_Integrator.f90 388 ! Time : Tue Mar 5 11:50:50 2019389 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm384 ! Time : Fri Mar 8 19:01:00 2019 385 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 390 386 ! Equation file : chem_gasphase_mod.kpp 391 387 ! Output root filename : chem_gasphase_mod … … 444 440 ! 445 441 ! File : chem_gasphase_mod_LinearAlgebra.f90 446 ! Time : Tue Mar 5 11:50:50 2019447 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm442 ! Time : Fri Mar 8 19:01:00 2019 443 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 448 444 ! Equation file : chem_gasphase_mod.kpp 449 445 ! Output root filename : chem_gasphase_mod … … 471 467 ! 472 468 ! File : chem_gasphase_mod_Jacobian.f90 473 ! Time : Tue Mar 5 11:50:50 2019474 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm469 ! Time : Fri Mar 8 19:01:00 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_Function.f90 500 ! Time : Tue Mar 5 11:50:50 2019501 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm496 ! Time : Fri Mar 8 19:01:00 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 … … 527 523 ! 528 524 ! File : chem_gasphase_mod_Rates.f90 529 ! Time : Tue Mar 5 11:50:50 2019530 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm525 ! Time : Fri Mar 8 19:01:00 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 … … 553 549 ! 554 550 ! File : chem_gasphase_mod_Util.f90 555 ! Time : Tue Mar 5 11:50:50 2019556 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm551 ! Time : Fri Mar 8 19:01:00 2019 552 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 557 553 ! Equation file : chem_gasphase_mod.kpp 558 554 ! Output root filename : chem_gasphase_mod … … 674 670 675 671 676 INTEGER :: j,k672 INTEGER :: k 677 673 678 674 INTEGER :: i … … 716 712 INTEGER :: icntrl(20), istatus(20), ierr 717 713 718 INTEGER, SAVE :: ntotal = 0719 714 720 715 icntrl(:) = 0 … … 900 895 REAL(dp), DIMENSION(:), INTENT(IN):: c 901 896 902 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 897 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 903 898 904 899 … … 2209 2204 2210 2205 INTEGER :: ier 2211 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2212 INTEGER :: k, kk, j, jj 2206 REAL(kind=dp):: jvs(lu_nonzero), a 2213 2207 2214 2208 a = 0. … … 2255 2249 INTEGER, DIMENSION(20) :: istatus_u 2256 2250 INTEGER :: ierr_u 2257 INTEGER :: istatf2258 2251 INTEGER :: vl_dim_lo 2259 2252 … … 2292 2285 2293 2286 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2294 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2287 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2295 2288 ENDIF 2296 2289
Note: See TracChangeset
for help on using the changeset viewer.
