Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90
- Timestamp:
- Mar 15, 2019 3:36:25 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90
r3789 r3799 98 98 99 99 LOGICAL :: data_loaded = .FALSE. 100 REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS :: var 100 101 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 101 102 ! … … 113 114 ! 114 115 ! File : chem_gasphase_mod_Parameters.f90 115 ! Time : Fri Mar 8 19:01:012019116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm116 ! Time : Fri Mar 15 16:28:26 2019 117 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 117 118 ! Equation file : chem_gasphase_mod.kpp 118 119 ! Output root filename : chem_gasphase_mod … … 201 202 ! 202 203 ! File : chem_gasphase_mod_Global.f90 203 ! Time : Fri Mar 8 19:01:012019204 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm204 ! Time : Fri Mar 15 16:28:26 2019 205 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 205 206 ! Equation file : chem_gasphase_mod.kpp 206 207 ! Output root filename : chem_gasphase_mod … … 216 217 217 218 ! C - Concentration of all species 218 REAL(kind=dp) :: c(nspec)219 REAL(kind=dp), TARGET :: c(nspec) 219 220 ! VAR - Concentrations of variable species (global) 220 REAL(kind=dp):: var(nvar) 221 ! REAL(kind=dp):: var(nvar) var is now POINTER 221 222 ! FIX - Concentrations of fixed species (global) 222 223 REAL(kind=dp):: fix(nfix) 223 224 ! VAR,FIX are chunks of array C 224 EQUIVALENCE( c(1), var(1))225 EQUIVALENCE( c(14), fix(1))226 225 ! RCONST - Rate constants (global) 227 226 REAL(kind=dp):: rconst(nreact) … … 274 273 ! 275 274 ! File : chem_gasphase_mod_JacobianSP.f90 276 ! Time : Fri Mar 8 19:01:012019277 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm275 ! Time : Fri Mar 15 16:28:26 2019 276 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 278 277 ! Equation file : chem_gasphase_mod.kpp 279 278 ! Output root filename : chem_gasphase_mod … … 326 325 ! 327 326 ! File : chem_gasphase_mod_Monitor.f90 328 ! Time : Fri Mar 8 19:01:012019329 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm327 ! Time : Fri Mar 15 16:28:26 2019 328 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 330 329 ! Equation file : chem_gasphase_mod.kpp 331 330 ! Output root filename : chem_gasphase_mod … … 400 399 ! 401 400 ! File : chem_gasphase_mod_Initialize.f90 402 ! Time : Fri Mar 8 19:01:012019403 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm401 ! Time : Fri Mar 15 16:28:26 2019 402 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 404 403 ! Equation file : chem_gasphase_mod.kpp 405 404 ! Output root filename : chem_gasphase_mod … … 426 425 ! 427 426 ! File : chem_gasphase_mod_Integrator.f90 428 ! Time : Fri Mar 8 19:01:012019429 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm427 ! Time : Fri Mar 15 16:28:26 2019 428 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 430 429 ! Equation file : chem_gasphase_mod.kpp 431 430 ! Output root filename : chem_gasphase_mod … … 484 483 ! 485 484 ! File : chem_gasphase_mod_LinearAlgebra.f90 486 ! Time : Fri Mar 8 19:01:012019487 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm485 ! Time : Fri Mar 15 16:28:26 2019 486 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 488 487 ! Equation file : chem_gasphase_mod.kpp 489 488 ! Output root filename : chem_gasphase_mod … … 511 510 ! 512 511 ! File : chem_gasphase_mod_Jacobian.f90 513 ! Time : Fri Mar 8 19:01:012019514 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm512 ! Time : Fri Mar 15 16:28:26 2019 513 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 515 514 ! Equation file : chem_gasphase_mod.kpp 516 515 ! Output root filename : chem_gasphase_mod … … 538 537 ! 539 538 ! File : chem_gasphase_mod_Function.f90 540 ! Time : Fri Mar 8 19:01:012019541 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm539 ! Time : Fri Mar 15 16:28:26 2019 540 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 542 541 ! Equation file : chem_gasphase_mod.kpp 543 542 ! Output root filename : chem_gasphase_mod … … 567 566 ! 568 567 ! File : chem_gasphase_mod_Rates.f90 569 ! Time : Fri Mar 8 19:01:012019570 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm568 ! Time : Fri Mar 15 16:28:26 2019 569 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 571 570 ! Equation file : chem_gasphase_mod.kpp 572 571 ! Output root filename : chem_gasphase_mod … … 593 592 ! 594 593 ! File : chem_gasphase_mod_Util.f90 595 ! Time : Fri Mar 8 19:01:012019596 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm594 ! Time : Fri Mar 15 16:28:26 2019 595 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 597 596 ! Equation file : chem_gasphase_mod.kpp 598 597 ! Output root filename : chem_gasphase_mod … … 709 708 710 709 710 ! openmp directives generated by kp4 711 712 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 713 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 714 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 715 711 716 CONTAINS 712 717 … … 720 725 k = is 721 726 cfactor = 1.000000e+00_dp 727 ! 728 ! Following line is just to avoid compiler message about unused variables 729 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 730 ! 722 731 723 732 x = (0.) * cfactor … … 805 814 806 815 816 ! Following line is just to avoid compiler message about unused variables 817 IF ( f(nfix) > 0.0_dp ) CONTINUE 818 ! 807 819 ! Computation of equation rates 808 820 a(1) = rct(1) * v(10) … … 874 886 ! B - Temporary array 875 887 REAL(kind=dp):: b(17) 888 ! 889 ! Following line is just to avoid compiler message about unused variables 890 IF ( f(nfix) > 0.0_dp ) CONTINUE 876 891 877 892 ! B(1) = dA(1)/dV(10) … … 1112 1127 REAL(kind=dp) :: x(n), alpha 1113 1128 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 1129 ! 1130 ! Following line is just to avoid compiler message about unused variables 1131 IF ( incx == 0 ) CONTINUE 1114 1132 1115 1133 IF (alpha .eq. one)RETURN … … 1175 1193 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 1176 1194 1195 ! 1196 ! Following line is just to avoid compiler message about unused variables 1197 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1177 1198 IF (alpha .eq. zero)RETURN 1178 1199 IF (n .le. 0)RETURN … … 1907 1928 !~~~> inout variables 1908 1929 REAL(kind=dp), INTENT(INOUT):: b(n) 1930 ! 1931 ! Following line is just to avoid compiler message about unused variables 1932 IF ( pivot(1) == 0 ) CONTINUE 1909 1933 1910 1934 #ifdef full_algebra … … 2497 2521 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2498 2522 2523 var => c(1:nvar) 2524 2499 2525 vl_glo = size(tempi, 1) 2500 2526
Note: See TracChangeset
for help on using the changeset viewer.
