- Timestamp:
- Mar 15, 2019 3:36:25 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/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:29 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 … … 190 191 ! 191 192 ! File : chem_gasphase_mod_Global.f90 192 ! Time : Fri Mar 8 19:01:032019193 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm193 ! Time : Fri Mar 15 16:28:29 2019 194 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 194 195 ! Equation file : chem_gasphase_mod.kpp 195 196 ! Output root filename : chem_gasphase_mod … … 205 206 206 207 ! C - Concentration of all species 207 REAL(kind=dp) :: c(nspec)208 REAL(kind=dp), TARGET :: c(nspec) 208 209 ! VAR - Concentrations of variable species (global) 209 REAL(kind=dp):: var(nvar) 210 ! REAL(kind=dp):: var(nvar) var is now POINTER 210 211 ! FIX - Concentrations of fixed species (global) 211 212 REAL(kind=dp):: fix(nfix) 212 213 ! VAR,FIX are chunks of array C 213 EQUIVALENCE( c(1), var(1))214 214 ! RCONST - Rate constants (global) 215 215 REAL(kind=dp):: rconst(nreact) … … 256 256 ! 257 257 ! File : chem_gasphase_mod_JacobianSP.f90 258 ! Time : Fri Mar 8 19:01:032019259 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm258 ! Time : Fri Mar 15 16:28:29 2019 259 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 260 260 ! Equation file : chem_gasphase_mod.kpp 261 261 ! Output root filename : chem_gasphase_mod … … 300 300 ! 301 301 ! File : chem_gasphase_mod_Monitor.f90 302 ! Time : Fri Mar 8 19:01:032019303 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm302 ! Time : Fri Mar 15 16:28:29 2019 303 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 304 304 ! Equation file : chem_gasphase_mod.kpp 305 305 ! Output root filename : chem_gasphase_mod … … 362 362 ! 363 363 ! File : chem_gasphase_mod_Initialize.f90 364 ! Time : Fri Mar 8 19:01:032019365 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm364 ! Time : Fri Mar 15 16:28:29 2019 365 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 366 366 ! Equation file : chem_gasphase_mod.kpp 367 367 ! Output root filename : chem_gasphase_mod … … 388 388 ! 389 389 ! File : chem_gasphase_mod_Integrator.f90 390 ! Time : Fri Mar 8 19:01:032019391 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm390 ! Time : Fri Mar 15 16:28:29 2019 391 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 392 392 ! Equation file : chem_gasphase_mod.kpp 393 393 ! Output root filename : chem_gasphase_mod … … 446 446 ! 447 447 ! File : chem_gasphase_mod_LinearAlgebra.f90 448 ! Time : Fri Mar 8 19:01:032019449 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm448 ! Time : Fri Mar 15 16:28:29 2019 449 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 450 450 ! Equation file : chem_gasphase_mod.kpp 451 451 ! Output root filename : chem_gasphase_mod … … 473 473 ! 474 474 ! File : chem_gasphase_mod_Jacobian.f90 475 ! Time : Fri Mar 8 19:01:032019476 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm475 ! Time : Fri Mar 15 16:28:29 2019 476 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 477 477 ! Equation file : chem_gasphase_mod.kpp 478 478 ! Output root filename : chem_gasphase_mod … … 500 500 ! 501 501 ! File : chem_gasphase_mod_Function.f90 502 ! Time : Fri Mar 8 19:01:032019503 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm502 ! Time : Fri Mar 15 16:28:29 2019 503 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 504 504 ! Equation file : chem_gasphase_mod.kpp 505 505 ! Output root filename : chem_gasphase_mod … … 529 529 ! 530 530 ! File : chem_gasphase_mod_Rates.f90 531 ! Time : Fri Mar 8 19:01:032019532 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm531 ! Time : Fri Mar 15 16:28:29 2019 532 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 533 533 ! Equation file : chem_gasphase_mod.kpp 534 534 ! Output root filename : chem_gasphase_mod … … 555 555 ! 556 556 ! File : chem_gasphase_mod_Util.f90 557 ! Time : Fri Mar 8 19:01:032019558 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm557 ! Time : Fri Mar 15 16:28:29 2019 558 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 559 559 ! Equation file : chem_gasphase_mod.kpp 560 560 ! Output root filename : chem_gasphase_mod … … 671 671 672 672 673 ! openmp directives generated by kp4 674 675 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 676 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 677 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 678 673 679 CONTAINS 674 680 … … 682 688 k = is 683 689 cfactor = 1.000000e+00_dp 690 ! 691 ! Following line is just to avoid compiler message about unused variables 692 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 693 ! 684 694 685 695 x = (0.) * cfactor … … 767 777 768 778 779 ! Following line is just to avoid compiler message about unused variables 780 IF ( f(nfix) > 0.0_dp ) CONTINUE 781 ! 769 782 ! Computation of equation rates 770 783 a(1) = rct(1) * v(3) … … 810 823 ! B - Temporary array 811 824 REAL(kind=dp):: b(4) 825 ! 826 ! Following line is just to avoid compiler message about unused variables 827 IF ( f(nfix) > 0.0_dp ) CONTINUE 812 828 813 829 ! B(1) = dA(1)/dV(3) … … 954 970 REAL(kind=dp) :: x(n), alpha 955 971 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 972 ! 973 ! Following line is just to avoid compiler message about unused variables 974 IF ( incx == 0 ) CONTINUE 956 975 957 976 IF (alpha .eq. one)RETURN … … 1017 1036 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 1018 1037 1038 ! 1039 ! Following line is just to avoid compiler message about unused variables 1040 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1019 1041 IF (alpha .eq. zero)RETURN 1020 1042 IF (n .le. 0)RETURN … … 1749 1771 !~~~> inout variables 1750 1772 REAL(kind=dp), INTENT(INOUT):: b(n) 1773 ! 1774 ! Following line is just to avoid compiler message about unused variables 1775 IF ( pivot(1) == 0 ) CONTINUE 1751 1776 1752 1777 #ifdef full_algebra … … 2308 2333 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2309 2334 2335 var => c(1:nvar) 2336 2310 2337 vl_glo = size(tempi, 1) 2311 2338
Note: See TracChangeset
for help on using the changeset viewer.
