- Timestamp:
- Mar 8, 2019 6:04:30 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/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 … … 191 189 ! 192 190 ! File : chem_gasphase_mod_Global.f90 193 ! Time : Tue Mar 5 11:50:50 2019194 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm191 ! Time : Fri Mar 8 19:01:00 2019 192 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 195 193 ! Equation file : chem_gasphase_mod.kpp 196 194 ! Output root filename : chem_gasphase_mod … … 219 217 ! TEMP - Temperature 220 218 REAL(kind=dp):: temp 221 ! TSTART - Integration start time222 REAL(kind=dp):: tstart223 219 ! ATOL - Absolute tolerance 224 220 REAL(kind=dp):: atol(nvar) … … 259 255 ! 260 256 ! File : chem_gasphase_mod_JacobianSP.f90 261 ! Time : Tue Mar 5 11:50:50 2019262 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm257 ! Time : Fri Mar 8 19:01:00 2019 258 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 263 259 ! Equation file : chem_gasphase_mod.kpp 264 260 ! Output root filename : chem_gasphase_mod … … 303 299 ! 304 300 ! File : chem_gasphase_mod_Monitor.f90 305 ! Time : Tue Mar 5 11:50:50 2019306 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm301 ! Time : Fri Mar 8 19:01:00 2019 302 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 307 303 ! Equation file : chem_gasphase_mod.kpp 308 304 ! Output root filename : chem_gasphase_mod … … 363 359 ! 364 360 ! File : chem_gasphase_mod_Initialize.f90 365 ! Time : Tue Mar 5 11:50:50 2019366 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm361 ! Time : Fri Mar 8 19:01:00 2019 362 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 367 363 ! Equation file : chem_gasphase_mod.kpp 368 364 ! Output root filename : chem_gasphase_mod … … 389 385 ! 390 386 ! File : chem_gasphase_mod_Integrator.f90 391 ! Time : Tue Mar 5 11:50:50 2019392 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm387 ! Time : Fri Mar 8 19:01:00 2019 388 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 393 389 ! Equation file : chem_gasphase_mod.kpp 394 390 ! Output root filename : chem_gasphase_mod … … 447 443 ! 448 444 ! File : chem_gasphase_mod_LinearAlgebra.f90 449 ! Time : Tue Mar 5 11:50:50 2019450 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm445 ! Time : Fri Mar 8 19:01:00 2019 446 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 451 447 ! Equation file : chem_gasphase_mod.kpp 452 448 ! Output root filename : chem_gasphase_mod … … 474 470 ! 475 471 ! File : chem_gasphase_mod_Jacobian.f90 476 ! Time : Tue Mar 5 11:50:50 2019477 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm472 ! Time : Fri Mar 8 19:01:00 2019 473 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 478 474 ! Equation file : chem_gasphase_mod.kpp 479 475 ! Output root filename : chem_gasphase_mod … … 501 497 ! 502 498 ! File : chem_gasphase_mod_Function.f90 503 ! Time : Tue Mar 5 11:50:50 2019504 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm499 ! Time : Fri Mar 8 19:01:00 2019 500 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 505 501 ! Equation file : chem_gasphase_mod.kpp 506 502 ! Output root filename : chem_gasphase_mod … … 530 526 ! 531 527 ! File : chem_gasphase_mod_Rates.f90 532 ! Time : Tue Mar 5 11:50:50 2019533 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm528 ! Time : Fri Mar 8 19:01:00 2019 529 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 534 530 ! Equation file : chem_gasphase_mod.kpp 535 531 ! Output root filename : chem_gasphase_mod … … 556 552 ! 557 553 ! File : chem_gasphase_mod_Util.f90 558 ! Time : Tue Mar 5 11:50:50 2019559 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm554 ! Time : Fri Mar 8 19:01:00 2019 555 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 560 556 ! Equation file : chem_gasphase_mod.kpp 561 557 ! Output root filename : chem_gasphase_mod … … 677 673 678 674 679 INTEGER :: j,k675 INTEGER :: k 680 676 681 677 INTEGER :: i … … 719 715 INTEGER :: icntrl(20), istatus(20), ierr 720 716 721 INTEGER, SAVE :: ntotal = 0722 717 723 718 icntrl(:) = 0 … … 932 927 REAL(dp), DIMENSION(:), INTENT(IN):: c 933 928 934 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 929 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 935 930 936 931 … … 2241 2236 2242 2237 INTEGER :: ier 2243 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2244 INTEGER :: k, kk, j, jj 2238 REAL(kind=dp):: jvs(lu_nonzero), a 2245 2239 2246 2240 a = 0. … … 2296 2290 INTEGER, DIMENSION(20) :: istatus_u 2297 2291 INTEGER :: ierr_u 2298 INTEGER :: istatf2299 2292 INTEGER :: vl_dim_lo 2300 2293 … … 2333 2326 2334 2327 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2335 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2328 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2336 2329 ENDIF 2337 2330
Note: See TracChangeset
for help on using the changeset viewer.