Changeset 3789 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/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_passive/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:49 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:00:59 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 … … 190 188 ! 191 189 ! File : chem_gasphase_mod_Global.f90 192 ! Time : Tue Mar 5 11:50:49 2019193 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm190 ! Time : Fri Mar 8 19:00:59 2019 191 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 194 192 ! Equation file : chem_gasphase_mod.kpp 195 193 ! Output root filename : chem_gasphase_mod … … 218 216 ! TEMP - Temperature 219 217 REAL(kind=dp):: temp 220 ! TSTART - Integration start time221 REAL(kind=dp):: tstart222 218 ! ATOL - Absolute tolerance 223 219 REAL(kind=dp):: atol(nvar) … … 258 254 ! 259 255 ! File : chem_gasphase_mod_JacobianSP.f90 260 ! Time : Tue Mar 5 11:50:49 2019261 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm256 ! Time : Fri Mar 8 19:00:59 2019 257 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 262 258 ! Equation file : chem_gasphase_mod.kpp 263 259 ! Output root filename : chem_gasphase_mod … … 302 298 ! 303 299 ! File : chem_gasphase_mod_Monitor.f90 304 ! Time : Tue Mar 5 11:50:49 2019305 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm300 ! Time : Fri Mar 8 19:00:59 2019 301 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 306 302 ! Equation file : chem_gasphase_mod.kpp 307 303 ! Output root filename : chem_gasphase_mod … … 362 358 ! 363 359 ! File : chem_gasphase_mod_Initialize.f90 364 ! Time : Tue Mar 5 11:50:49 2019365 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm360 ! Time : Fri Mar 8 19:00:59 2019 361 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 366 362 ! Equation file : chem_gasphase_mod.kpp 367 363 ! Output root filename : chem_gasphase_mod … … 388 384 ! 389 385 ! File : chem_gasphase_mod_Integrator.f90 390 ! Time : Tue Mar 5 11:50:49 2019391 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm386 ! Time : Fri Mar 8 19:00:59 2019 387 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 392 388 ! Equation file : chem_gasphase_mod.kpp 393 389 ! Output root filename : chem_gasphase_mod … … 446 442 ! 447 443 ! File : chem_gasphase_mod_LinearAlgebra.f90 448 ! Time : Tue Mar 5 11:50:49 2019449 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm444 ! Time : Fri Mar 8 19:00:59 2019 445 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 450 446 ! Equation file : chem_gasphase_mod.kpp 451 447 ! Output root filename : chem_gasphase_mod … … 473 469 ! 474 470 ! File : chem_gasphase_mod_Jacobian.f90 475 ! Time : Tue Mar 5 11:50:49 2019476 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm471 ! Time : Fri Mar 8 19:00:59 2019 472 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 477 473 ! Equation file : chem_gasphase_mod.kpp 478 474 ! Output root filename : chem_gasphase_mod … … 500 496 ! 501 497 ! File : chem_gasphase_mod_Function.f90 502 ! Time : Tue Mar 5 11:50:49 2019503 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm498 ! Time : Fri Mar 8 19:00:59 2019 499 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 504 500 ! Equation file : chem_gasphase_mod.kpp 505 501 ! Output root filename : chem_gasphase_mod … … 529 525 ! 530 526 ! File : chem_gasphase_mod_Rates.f90 531 ! Time : Tue Mar 5 11:50:49 2019532 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm527 ! Time : Fri Mar 8 19:00:59 2019 528 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 533 529 ! Equation file : chem_gasphase_mod.kpp 534 530 ! Output root filename : chem_gasphase_mod … … 555 551 ! 556 552 ! File : chem_gasphase_mod_Util.f90 557 ! Time : Tue Mar 5 11:50:49 2019558 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm553 ! Time : Fri Mar 8 19:00:59 2019 554 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 559 555 ! Equation file : chem_gasphase_mod.kpp 560 556 ! Output root filename : chem_gasphase_mod … … 676 672 677 673 678 INTEGER :: j,k674 INTEGER :: k 679 675 680 676 INTEGER :: i … … 718 714 INTEGER :: icntrl(20), istatus(20), ierr 719 715 720 INTEGER, SAVE :: ntotal = 0721 716 722 717 icntrl(:) = 0 … … 909 904 REAL(dp), DIMENSION(:), INTENT(IN):: c 910 905 911 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 906 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 912 907 913 908 … … 2218 2213 2219 2214 INTEGER :: ier 2220 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2221 INTEGER :: k, kk, j, jj 2215 REAL(kind=dp):: jvs(lu_nonzero), a 2222 2216 2223 2217 a = 0. … … 2265 2259 INTEGER, DIMENSION(20) :: istatus_u 2266 2260 INTEGER :: ierr_u 2267 INTEGER :: istatf2268 2261 INTEGER :: vl_dim_lo 2269 2262 … … 2302 2295 2303 2296 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2304 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2297 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2305 2298 ENDIF 2306 2299
Note: See TracChangeset
for help on using the changeset viewer.
