Changeset 3789 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/chem_gasphase_mod.f90
- 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_salsa+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: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 … … 191 189 ! 192 190 ! File : chem_gasphase_mod_Global.f90 193 ! Time : Tue Mar 5 11:50:51 2019194 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm191 ! Time : Fri Mar 8 19:01:01 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) … … 268 264 ! 269 265 ! File : chem_gasphase_mod_JacobianSP.f90 270 ! Time : Tue Mar 5 11:50:51 2019271 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm266 ! Time : Fri Mar 8 19:01:01 2019 267 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 272 268 ! Equation file : chem_gasphase_mod.kpp 273 269 ! Output root filename : chem_gasphase_mod … … 312 308 ! 313 309 ! File : chem_gasphase_mod_Monitor.f90 314 ! Time : Tue Mar 5 11:50:51 2019315 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm310 ! Time : Fri Mar 8 19:01:01 2019 311 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 316 312 ! Equation file : chem_gasphase_mod.kpp 317 313 ! Output root filename : chem_gasphase_mod … … 372 368 ! 373 369 ! File : chem_gasphase_mod_Initialize.f90 374 ! Time : Tue Mar 5 11:50:51 2019375 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm370 ! Time : Fri Mar 8 19:01:01 2019 371 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 376 372 ! Equation file : chem_gasphase_mod.kpp 377 373 ! Output root filename : chem_gasphase_mod … … 398 394 ! 399 395 ! File : chem_gasphase_mod_Integrator.f90 400 ! Time : Tue Mar 5 11:50:51 2019401 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm396 ! Time : Fri Mar 8 19:01:01 2019 397 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 402 398 ! Equation file : chem_gasphase_mod.kpp 403 399 ! Output root filename : chem_gasphase_mod … … 456 452 ! 457 453 ! File : chem_gasphase_mod_LinearAlgebra.f90 458 ! Time : Tue Mar 5 11:50:51 2019459 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm454 ! Time : Fri Mar 8 19:01:01 2019 455 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 460 456 ! Equation file : chem_gasphase_mod.kpp 461 457 ! Output root filename : chem_gasphase_mod … … 483 479 ! 484 480 ! File : chem_gasphase_mod_Jacobian.f90 485 ! Time : Tue Mar 5 11:50:51 2019486 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm481 ! Time : Fri Mar 8 19:01:01 2019 482 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 487 483 ! Equation file : chem_gasphase_mod.kpp 488 484 ! Output root filename : chem_gasphase_mod … … 510 506 ! 511 507 ! File : chem_gasphase_mod_Function.f90 512 ! Time : Tue Mar 5 11:50:51 2019513 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm508 ! Time : Fri Mar 8 19:01:01 2019 509 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 514 510 ! Equation file : chem_gasphase_mod.kpp 515 511 ! Output root filename : chem_gasphase_mod … … 539 535 ! 540 536 ! File : chem_gasphase_mod_Rates.f90 541 ! Time : Tue Mar 5 11:50:51 2019542 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm537 ! Time : Fri Mar 8 19:01:01 2019 538 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 543 539 ! Equation file : chem_gasphase_mod.kpp 544 540 ! Output root filename : chem_gasphase_mod … … 565 561 ! 566 562 ! File : chem_gasphase_mod_Util.f90 567 ! Time : Tue Mar 5 11:50:51 2019568 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm563 ! Time : Fri Mar 8 19:01:01 2019 564 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 569 565 ! Equation file : chem_gasphase_mod.kpp 570 566 ! Output root filename : chem_gasphase_mod … … 686 682 687 683 688 INTEGER :: j,k684 INTEGER :: k 689 685 690 686 INTEGER :: i … … 728 724 INTEGER :: icntrl(20), istatus(20), ierr 729 725 730 INTEGER, SAVE :: ntotal = 0731 726 732 727 icntrl(:) = 0 … … 941 936 REAL(dp), DIMENSION(:), INTENT(IN):: c 942 937 943 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 938 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 944 939 945 940 … … 2250 2245 2251 2246 INTEGER :: ier 2252 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 2253 INTEGER :: k, kk, j, jj 2247 REAL(kind=dp):: jvs(lu_nonzero), a 2254 2248 2255 2249 a = 0. … … 2305 2299 INTEGER, DIMENSION(20) :: istatus_u 2306 2300 INTEGER :: ierr_u 2307 INTEGER :: istatf2308 2301 INTEGER :: vl_dim_lo 2309 2302 … … 2342 2335 2343 2336 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 2344 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2337 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 2345 2338 ENDIF 2346 2339
Note: See TracChangeset
for help on using the changeset viewer.