- 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_salsagas/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:51 2019118 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm115 ! Time : Fri Mar 8 19:01:01 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 … … 193 191 ! 194 192 ! File : chem_gasphase_mod_Global.f90 195 ! Time : Tue Mar 5 11:50:51 2019196 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm193 ! Time : Fri Mar 8 19:01:01 2019 194 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 197 195 ! Equation file : chem_gasphase_mod.kpp 198 196 ! Output root filename : chem_gasphase_mod … … 221 219 ! TEMP - Temperature 222 220 REAL(kind=dp):: temp 223 ! TSTART - Integration start time224 REAL(kind=dp):: tstart225 221 ! ATOL - Absolute tolerance 226 222 REAL(kind=dp):: atol(nvar) … … 263 259 ! 264 260 ! File : chem_gasphase_mod_JacobianSP.f90 265 ! Time : Tue Mar 5 11:50:51 2019266 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm261 ! Time : Fri Mar 8 19:01:01 2019 262 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 267 263 ! Equation file : chem_gasphase_mod.kpp 268 264 ! Output root filename : chem_gasphase_mod … … 307 303 ! 308 304 ! File : chem_gasphase_mod_Monitor.f90 309 ! Time : Tue Mar 5 11:50:51 2019310 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm305 ! Time : Fri Mar 8 19:01:01 2019 306 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 311 307 ! Equation file : chem_gasphase_mod.kpp 312 308 ! Output root filename : chem_gasphase_mod … … 371 367 ! 372 368 ! File : chem_gasphase_mod_Initialize.f90 373 ! Time : Tue Mar 5 11:50:51 2019374 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm369 ! Time : Fri Mar 8 19:01:01 2019 370 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 375 371 ! Equation file : chem_gasphase_mod.kpp 376 372 ! Output root filename : chem_gasphase_mod … … 397 393 ! 398 394 ! File : chem_gasphase_mod_Integrator.f90 399 ! Time : Tue Mar 5 11:50:51 2019400 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm395 ! Time : Fri Mar 8 19:01:01 2019 396 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 401 397 ! Equation file : chem_gasphase_mod.kpp 402 398 ! Output root filename : chem_gasphase_mod … … 455 451 ! 456 452 ! File : chem_gasphase_mod_LinearAlgebra.f90 457 ! Time : Tue Mar 5 11:50:51 2019458 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm453 ! Time : Fri Mar 8 19:01:01 2019 454 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 459 455 ! Equation file : chem_gasphase_mod.kpp 460 456 ! Output root filename : chem_gasphase_mod … … 482 478 ! 483 479 ! File : chem_gasphase_mod_Jacobian.f90 484 ! Time : Tue Mar 5 11:50:51 2019485 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm480 ! Time : Fri Mar 8 19:01:01 2019 481 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 486 482 ! Equation file : chem_gasphase_mod.kpp 487 483 ! Output root filename : chem_gasphase_mod … … 509 505 ! 510 506 ! File : chem_gasphase_mod_Function.f90 511 ! Time : Tue Mar 5 11:50:51 2019512 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm507 ! Time : Fri Mar 8 19:01:01 2019 508 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 513 509 ! Equation file : chem_gasphase_mod.kpp 514 510 ! Output root filename : chem_gasphase_mod … … 538 534 ! 539 535 ! File : chem_gasphase_mod_Rates.f90 540 ! Time : Tue Mar 5 11:50:51 2019541 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm536 ! Time : Fri Mar 8 19:01:01 2019 537 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 542 538 ! Equation file : chem_gasphase_mod.kpp 543 539 ! Output root filename : chem_gasphase_mod … … 564 560 ! 565 561 ! File : chem_gasphase_mod_Util.f90 566 ! Time : Tue Mar 5 11:50:51 2019567 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm562 ! Time : Fri Mar 8 19:01:01 2019 563 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 568 564 ! Equation file : chem_gasphase_mod.kpp 569 565 ! Output root filename : chem_gasphase_mod … … 685 681 686 682 687 INTEGER :: j,k683 INTEGER :: k 688 684 689 685 INTEGER :: i … … 727 723 INTEGER :: icntrl(20), istatus(20), ierr 728 724 729 INTEGER, SAVE :: ntotal = 0730 725 731 726 icntrl(:) = 0 … … 939 934 REAL(dp), DIMENSION(:), INTENT(IN):: c 940 935 941 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 936 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 942 937 943 938 … … 2248 2243 2249 2244 INTEGER :: ier 2250 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2251 INTEGER :: k, kk, j, jj 2245 REAL(kind=dp):: jvs(lu_nonzero), a 2252 2246 2253 2247 a = 0. … … 2298 2292 INTEGER, DIMENSION(20) :: istatus_u 2299 2293 INTEGER :: ierr_u 2300 INTEGER :: istatf2301 2294 INTEGER :: vl_dim_lo 2302 2295 … … 2335 2328 2336 2329 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2337 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2330 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2338 2331 ENDIF 2339 2332
Note: See TracChangeset
for help on using the changeset viewer.
