Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/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+phstat/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 … … 189 190 ! 190 191 ! File : chem_gasphase_mod_Global.f90 191 ! Time : Fri Mar 8 19:01:012019192 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm192 ! Time : Fri Mar 15 16:28:26 2019 193 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 193 194 ! Equation file : chem_gasphase_mod.kpp 194 195 ! Output root filename : chem_gasphase_mod … … 204 205 205 206 ! C - Concentration of all species 206 REAL(kind=dp) :: c(nspec)207 REAL(kind=dp), TARGET :: c(nspec) 207 208 ! VAR - Concentrations of variable species (global) 208 REAL(kind=dp):: var(nvar) 209 ! REAL(kind=dp):: var(nvar) var is now POINTER 209 210 ! FIX - Concentrations of fixed species (global) 210 211 REAL(kind=dp):: fix(nfix) 211 212 ! VAR,FIX are chunks of array C 212 EQUIVALENCE( c(1), var(1))213 213 ! RCONST - Rate constants (global) 214 214 REAL(kind=dp):: rconst(nreact) … … 264 264 ! 265 265 ! File : chem_gasphase_mod_JacobianSP.f90 266 ! Time : Fri Mar 8 19:01:012019267 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm266 ! Time : Fri Mar 15 16:28:26 2019 267 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 268 268 ! Equation file : chem_gasphase_mod.kpp 269 269 ! Output root filename : chem_gasphase_mod … … 308 308 ! 309 309 ! File : chem_gasphase_mod_Monitor.f90 310 ! Time : Fri Mar 8 19:01:012019311 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm310 ! Time : Fri Mar 15 16:28:26 2019 311 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 312 312 ! Equation file : chem_gasphase_mod.kpp 313 313 ! Output root filename : chem_gasphase_mod … … 368 368 ! 369 369 ! File : chem_gasphase_mod_Initialize.f90 370 ! Time : Fri Mar 8 19:01:012019371 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm370 ! Time : Fri Mar 15 16:28:26 2019 371 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 372 372 ! Equation file : chem_gasphase_mod.kpp 373 373 ! Output root filename : chem_gasphase_mod … … 394 394 ! 395 395 ! File : chem_gasphase_mod_Integrator.f90 396 ! Time : Fri Mar 8 19:01:012019397 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm396 ! Time : Fri Mar 15 16:28:26 2019 397 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 398 398 ! Equation file : chem_gasphase_mod.kpp 399 399 ! Output root filename : chem_gasphase_mod … … 452 452 ! 453 453 ! File : chem_gasphase_mod_LinearAlgebra.f90 454 ! Time : Fri Mar 8 19:01:012019455 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm454 ! Time : Fri Mar 15 16:28:26 2019 455 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 456 456 ! Equation file : chem_gasphase_mod.kpp 457 457 ! Output root filename : chem_gasphase_mod … … 479 479 ! 480 480 ! File : chem_gasphase_mod_Jacobian.f90 481 ! Time : Fri Mar 8 19:01:012019482 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm481 ! Time : Fri Mar 15 16:28:26 2019 482 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 483 483 ! Equation file : chem_gasphase_mod.kpp 484 484 ! Output root filename : chem_gasphase_mod … … 506 506 ! 507 507 ! File : chem_gasphase_mod_Function.f90 508 ! Time : Fri Mar 8 19:01:012019509 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm508 ! Time : Fri Mar 15 16:28:26 2019 509 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 510 510 ! Equation file : chem_gasphase_mod.kpp 511 511 ! Output root filename : chem_gasphase_mod … … 535 535 ! 536 536 ! File : chem_gasphase_mod_Rates.f90 537 ! Time : Fri Mar 8 19:01:012019538 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm537 ! Time : Fri Mar 15 16:28:26 2019 538 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 539 539 ! Equation file : chem_gasphase_mod.kpp 540 540 ! Output root filename : chem_gasphase_mod … … 561 561 ! 562 562 ! File : chem_gasphase_mod_Util.f90 563 ! Time : Fri Mar 8 19:01:012019564 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm563 ! Time : Fri Mar 15 16:28:26 2019 564 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 565 565 ! Equation file : chem_gasphase_mod.kpp 566 566 ! Output root filename : chem_gasphase_mod … … 677 677 678 678 679 ! openmp directives generated by kp4 680 681 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 682 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 683 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 684 679 685 CONTAINS 680 686 … … 688 694 k = is 689 695 cfactor = 1.000000e+00_dp 696 ! 697 ! Following line is just to avoid compiler message about unused variables 698 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 699 ! 690 700 691 701 x = (0.) * cfactor … … 773 783 774 784 785 ! Following line is just to avoid compiler message about unused variables 786 IF ( f(nfix) > 0.0_dp ) CONTINUE 787 ! 775 788 ! Computation of equation rates 776 789 a(1) = rct(1) * v(3) … … 814 827 ! B - Temporary array 815 828 REAL(kind=dp):: b(3) 829 ! 830 ! Following line is just to avoid compiler message about unused variables 831 IF ( f(nfix) > 0.0_dp ) CONTINUE 816 832 817 833 ! B(1) = dA(1)/dV(3) … … 953 969 REAL(kind=dp) :: x(n), alpha 954 970 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 971 ! 972 ! Following line is just to avoid compiler message about unused variables 973 IF ( incx == 0 ) CONTINUE 955 974 956 975 IF (alpha .eq. one)RETURN … … 1016 1035 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 1017 1036 1037 ! 1038 ! Following line is just to avoid compiler message about unused variables 1039 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1018 1040 IF (alpha .eq. zero)RETURN 1019 1041 IF (n .le. 0)RETURN … … 1748 1770 !~~~> inout variables 1749 1771 REAL(kind=dp), INTENT(INOUT):: b(n) 1772 ! 1773 ! Following line is just to avoid compiler message about unused variables 1774 IF ( pivot(1) == 0 ) CONTINUE 1750 1775 1751 1776 #ifdef full_algebra … … 2306 2331 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2307 2332 2333 var => c(1:nvar) 2334 2308 2335 vl_glo = size(tempi, 1) 2309 2336
Note: See TracChangeset
for help on using the changeset viewer.
