Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/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_smog/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:032019116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm116 ! Time : Fri Mar 15 16:28:28 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 … … 205 206 ! 206 207 ! File : chem_gasphase_mod_Global.f90 207 ! Time : Fri Mar 8 19:01:032019208 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm208 ! Time : Fri Mar 15 16:28:28 2019 209 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 209 210 ! Equation file : chem_gasphase_mod.kpp 210 211 ! Output root filename : chem_gasphase_mod … … 220 221 221 222 ! C - Concentration of all species 222 REAL(kind=dp) :: c(nspec)223 REAL(kind=dp), TARGET :: c(nspec) 223 224 ! VAR - Concentrations of variable species (global) 224 REAL(kind=dp):: var(nvar) 225 ! REAL(kind=dp):: var(nvar) var is now POINTER 225 226 ! FIX - Concentrations of fixed species (global) 226 227 REAL(kind=dp):: fix(nfix) 227 228 ! VAR,FIX are chunks of array C 228 EQUIVALENCE( c(1), var(1))229 EQUIVALENCE( c(14), fix(1))230 229 ! RCONST - Rate constants (global) 231 230 REAL(kind=dp):: rconst(nreact) … … 272 271 ! 273 272 ! File : chem_gasphase_mod_JacobianSP.f90 274 ! Time : Fri Mar 8 19:01:032019275 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm273 ! Time : Fri Mar 15 16:28:28 2019 274 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 276 275 ! Equation file : chem_gasphase_mod.kpp 277 276 ! Output root filename : chem_gasphase_mod … … 328 327 ! 329 328 ! File : chem_gasphase_mod_Monitor.f90 330 ! Time : Fri Mar 8 19:01:032019331 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm329 ! Time : Fri Mar 15 16:28:28 2019 330 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 332 331 ! Equation file : chem_gasphase_mod.kpp 333 332 ! Output root filename : chem_gasphase_mod … … 404 403 ! 405 404 ! File : chem_gasphase_mod_Initialize.f90 406 ! Time : Fri Mar 8 19:01:032019407 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm405 ! Time : Fri Mar 15 16:28:28 2019 406 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 408 407 ! Equation file : chem_gasphase_mod.kpp 409 408 ! Output root filename : chem_gasphase_mod … … 430 429 ! 431 430 ! File : chem_gasphase_mod_Integrator.f90 432 ! Time : Fri Mar 8 19:01:032019433 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm431 ! Time : Fri Mar 15 16:28:28 2019 432 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 434 433 ! Equation file : chem_gasphase_mod.kpp 435 434 ! Output root filename : chem_gasphase_mod … … 488 487 ! 489 488 ! File : chem_gasphase_mod_LinearAlgebra.f90 490 ! Time : Fri Mar 8 19:01:032019491 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm489 ! Time : Fri Mar 15 16:28:28 2019 490 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 492 491 ! Equation file : chem_gasphase_mod.kpp 493 492 ! Output root filename : chem_gasphase_mod … … 515 514 ! 516 515 ! File : chem_gasphase_mod_Jacobian.f90 517 ! Time : Fri Mar 8 19:01:032019518 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm516 ! Time : Fri Mar 15 16:28:28 2019 517 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 519 518 ! Equation file : chem_gasphase_mod.kpp 520 519 ! Output root filename : chem_gasphase_mod … … 542 541 ! 543 542 ! File : chem_gasphase_mod_Function.f90 544 ! Time : Fri Mar 8 19:01:032019545 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm543 ! Time : Fri Mar 15 16:28:28 2019 544 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 546 545 ! Equation file : chem_gasphase_mod.kpp 547 546 ! Output root filename : chem_gasphase_mod … … 571 570 ! 572 571 ! File : chem_gasphase_mod_Rates.f90 573 ! Time : Fri Mar 8 19:01:032019574 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm572 ! Time : Fri Mar 15 16:28:28 2019 573 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 575 574 ! Equation file : chem_gasphase_mod.kpp 576 575 ! Output root filename : chem_gasphase_mod … … 597 596 ! 598 597 ! File : chem_gasphase_mod_Util.f90 599 ! Time : Fri Mar 8 19:01:032019600 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm598 ! Time : Fri Mar 15 16:28:28 2019 599 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 601 600 ! Equation file : chem_gasphase_mod.kpp 602 601 ! Output root filename : chem_gasphase_mod … … 713 712 714 713 714 ! openmp directives generated by kp4 715 716 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 717 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 718 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 719 715 720 CONTAINS 716 721 … … 724 729 k = is 725 730 cfactor = 1.000000e+00_dp 731 ! 732 ! Following line is just to avoid compiler message about unused variables 733 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 734 ! 726 735 727 736 x = (0.) * cfactor … … 813 822 814 823 824 ! Following line is just to avoid compiler message about unused variables 825 IF ( f(nfix) > 0.0_dp ) CONTINUE 826 ! 815 827 ! Computation of equation rates 816 828 a(1) = rct(1) * v(13) … … 890 902 ! B - Temporary array 891 903 REAL(kind=dp):: b(21) 904 ! 905 ! Following line is just to avoid compiler message about unused variables 906 IF ( f(nfix) > 0.0_dp ) CONTINUE 892 907 893 908 ! B(1) = dA(1)/dV(13) … … 1177 1192 REAL(kind=dp) :: x(n), alpha 1178 1193 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 1194 ! 1195 ! Following line is just to avoid compiler message about unused variables 1196 IF ( incx == 0 ) CONTINUE 1179 1197 1180 1198 IF (alpha .eq. one)RETURN … … 1240 1258 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 1241 1259 1260 ! 1261 ! Following line is just to avoid compiler message about unused variables 1262 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1242 1263 IF (alpha .eq. zero)RETURN 1243 1264 IF (n .le. 0)RETURN … … 1972 1993 !~~~> inout variables 1973 1994 REAL(kind=dp), INTENT(INOUT):: b(n) 1995 ! 1996 ! Following line is just to avoid compiler message about unused variables 1997 IF ( pivot(1) == 0 ) CONTINUE 1974 1998 1975 1999 #ifdef full_algebra … … 2583 2607 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2584 2608 2609 var => c(1:nvar) 2610 2585 2611 vl_glo = size(tempi, 1) 2586 2612
Note: See TracChangeset
for help on using the changeset viewer.
