- 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_cbm4/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 … … 222 220 ! 223 221 ! File : chem_gasphase_mod_Global.f90 224 ! Time : Tue Mar 5 11:50:49 2019225 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm222 ! Time : Fri Mar 8 19:00:59 2019 223 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 226 224 ! Equation file : chem_gasphase_mod.kpp 227 225 ! Output root filename : chem_gasphase_mod … … 251 249 ! TEMP - Temperature 252 250 REAL(kind=dp):: temp 253 ! TSTART - Integration start time254 REAL(kind=dp):: tstart255 251 ! ATOL - Absolute tolerance 256 252 REAL(kind=dp):: atol(nvar) … … 291 287 ! 292 288 ! File : chem_gasphase_mod_JacobianSP.f90 293 ! Time : Tue Mar 5 11:50:49 2019294 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm289 ! Time : Fri Mar 8 19:00:59 2019 290 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 295 291 ! Equation file : chem_gasphase_mod.kpp 296 292 ! Output root filename : chem_gasphase_mod … … 387 383 ! 388 384 ! File : chem_gasphase_mod_Monitor.f90 389 ! Time : Tue Mar 5 11:50:49 2019390 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm385 ! Time : Fri Mar 8 19:00:59 2019 386 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 391 387 ! Equation file : chem_gasphase_mod.kpp 392 388 ! Output root filename : chem_gasphase_mod … … 550 546 ! 551 547 ! File : chem_gasphase_mod_Initialize.f90 552 ! Time : Tue Mar 5 11:50:49 2019553 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm548 ! Time : Fri Mar 8 19:00:59 2019 549 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 554 550 ! Equation file : chem_gasphase_mod.kpp 555 551 ! Output root filename : chem_gasphase_mod … … 576 572 ! 577 573 ! File : chem_gasphase_mod_Integrator.f90 578 ! Time : Tue Mar 5 11:50:49 2019579 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm574 ! Time : Fri Mar 8 19:00:59 2019 575 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 580 576 ! Equation file : chem_gasphase_mod.kpp 581 577 ! Output root filename : chem_gasphase_mod … … 634 630 ! 635 631 ! File : chem_gasphase_mod_LinearAlgebra.f90 636 ! Time : Tue Mar 5 11:50:49 2019637 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm632 ! Time : Fri Mar 8 19:00:59 2019 633 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 638 634 ! Equation file : chem_gasphase_mod.kpp 639 635 ! Output root filename : chem_gasphase_mod … … 661 657 ! 662 658 ! File : chem_gasphase_mod_Jacobian.f90 663 ! Time : Tue Mar 5 11:50:49 2019664 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm659 ! Time : Fri Mar 8 19:00:59 2019 660 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 665 661 ! Equation file : chem_gasphase_mod.kpp 666 662 ! Output root filename : chem_gasphase_mod … … 688 684 ! 689 685 ! File : chem_gasphase_mod_Function.f90 690 ! Time : Tue Mar 5 11:50:49 2019691 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm686 ! Time : Fri Mar 8 19:00:59 2019 687 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 692 688 ! Equation file : chem_gasphase_mod.kpp 693 689 ! Output root filename : chem_gasphase_mod … … 717 713 ! 718 714 ! File : chem_gasphase_mod_Rates.f90 719 ! Time : Tue Mar 5 11:50:49 2019720 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm715 ! Time : Fri Mar 8 19:00:59 2019 716 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 721 717 ! Equation file : chem_gasphase_mod.kpp 722 718 ! Output root filename : chem_gasphase_mod … … 743 739 ! 744 740 ! File : chem_gasphase_mod_Util.f90 745 ! Time : Tue Mar 5 11:50:49 2019746 ! Working directory : /home/forkel-r/palmstuff/work/trunk2019030 5/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm741 ! Time : Fri Mar 8 19:00:59 2019 742 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 747 743 ! Equation file : chem_gasphase_mod.kpp 748 744 ! Output root filename : chem_gasphase_mod … … 864 860 865 861 866 INTEGER :: j,k862 INTEGER :: k 867 863 868 864 INTEGER :: i … … 908 904 INTEGER :: icntrl(20), istatus(20), ierr 909 905 910 INTEGER, SAVE :: ntotal = 0911 906 912 907 icntrl(:) = 0 … … 2261 2256 REAL(dp), DIMENSION(:), INTENT(IN):: c 2262 2257 2263 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1) 2258 write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE 2264 2259 2265 2260 … … 3570 3565 3571 3566 INTEGER :: ier 3572 REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a 3573 INTEGER :: k, kk, j, jj 3567 REAL(kind=dp):: jvs(lu_nonzero), a 3574 3568 3575 3569 a = 0. … … 3986 3980 INTEGER, DIMENSION(20) :: istatus_u 3987 3981 INTEGER :: ierr_u 3988 INTEGER :: istatf3989 3982 INTEGER :: vl_dim_lo 3990 3983 … … 4023 4016 4024 4017 IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN 4025 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 4018 IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe) 4026 4019 ENDIF 4027 4020
Note: See TracChangeset
for help on using the changeset viewer.
