Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_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_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:002019116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm116 ! Time : Fri Mar 15 16:28:24 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:002019192 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm192 ! Time : Fri Mar 15 16:28:24 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) … … 255 255 ! 256 256 ! File : chem_gasphase_mod_JacobianSP.f90 257 ! Time : Fri Mar 8 19:01:002019258 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm257 ! Time : Fri Mar 15 16:28:24 2019 258 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 259 259 ! Equation file : chem_gasphase_mod.kpp 260 260 ! Output root filename : chem_gasphase_mod … … 299 299 ! 300 300 ! File : chem_gasphase_mod_Monitor.f90 301 ! Time : Fri Mar 8 19:01:002019302 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm301 ! Time : Fri Mar 15 16:28:24 2019 302 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 303 303 ! Equation file : chem_gasphase_mod.kpp 304 304 ! Output root filename : chem_gasphase_mod … … 359 359 ! 360 360 ! File : chem_gasphase_mod_Initialize.f90 361 ! Time : Fri Mar 8 19:01:002019362 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm361 ! Time : Fri Mar 15 16:28:24 2019 362 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 363 363 ! Equation file : chem_gasphase_mod.kpp 364 364 ! Output root filename : chem_gasphase_mod … … 385 385 ! 386 386 ! File : chem_gasphase_mod_Integrator.f90 387 ! Time : Fri Mar 8 19:01:002019388 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm387 ! Time : Fri Mar 15 16:28:24 2019 388 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 389 389 ! Equation file : chem_gasphase_mod.kpp 390 390 ! Output root filename : chem_gasphase_mod … … 443 443 ! 444 444 ! File : chem_gasphase_mod_LinearAlgebra.f90 445 ! Time : Fri Mar 8 19:01:002019446 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm445 ! Time : Fri Mar 15 16:28:24 2019 446 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 447 447 ! Equation file : chem_gasphase_mod.kpp 448 448 ! Output root filename : chem_gasphase_mod … … 470 470 ! 471 471 ! File : chem_gasphase_mod_Jacobian.f90 472 ! Time : Fri Mar 8 19:01:002019473 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm472 ! Time : Fri Mar 15 16:28:24 2019 473 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 474 474 ! Equation file : chem_gasphase_mod.kpp 475 475 ! Output root filename : chem_gasphase_mod … … 497 497 ! 498 498 ! File : chem_gasphase_mod_Function.f90 499 ! Time : Fri Mar 8 19:01:002019500 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm499 ! Time : Fri Mar 15 16:28:24 2019 500 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 501 501 ! Equation file : chem_gasphase_mod.kpp 502 502 ! Output root filename : chem_gasphase_mod … … 526 526 ! 527 527 ! File : chem_gasphase_mod_Rates.f90 528 ! Time : Fri Mar 8 19:01:002019529 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm528 ! Time : Fri Mar 15 16:28:24 2019 529 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 530 530 ! Equation file : chem_gasphase_mod.kpp 531 531 ! Output root filename : chem_gasphase_mod … … 552 552 ! 553 553 ! File : chem_gasphase_mod_Util.f90 554 ! Time : Fri Mar 8 19:01:002019555 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm554 ! Time : Fri Mar 15 16:28:24 2019 555 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 556 556 ! Equation file : chem_gasphase_mod.kpp 557 557 ! Output root filename : chem_gasphase_mod … … 668 668 669 669 670 ! openmp directives generated by kp4 671 672 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 673 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 674 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 675 670 676 CONTAINS 671 677 … … 679 685 k = is 680 686 cfactor = 1.000000e+00_dp 687 ! 688 ! Following line is just to avoid compiler message about unused variables 689 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 690 ! 681 691 682 692 x = (0.) * cfactor … … 764 774 765 775 776 ! Following line is just to avoid compiler message about unused variables 777 IF ( f(nfix) > 0.0_dp ) CONTINUE 778 ! 766 779 ! Computation of equation rates 767 780 a(1) = rct(1) * v(3) … … 805 818 ! B - Temporary array 806 819 REAL(kind=dp):: b(3) 820 ! 821 ! Following line is just to avoid compiler message about unused variables 822 IF ( f(nfix) > 0.0_dp ) CONTINUE 807 823 808 824 ! B(1) = dA(1)/dV(3) … … 944 960 REAL(kind=dp) :: x(n), alpha 945 961 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 962 ! 963 ! Following line is just to avoid compiler message about unused variables 964 IF ( incx == 0 ) CONTINUE 946 965 947 966 IF (alpha .eq. one)RETURN … … 1007 1026 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 1008 1027 1028 ! 1029 ! Following line is just to avoid compiler message about unused variables 1030 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1009 1031 IF (alpha .eq. zero)RETURN 1010 1032 IF (n .le. 0)RETURN … … 1739 1761 !~~~> inout variables 1740 1762 REAL(kind=dp), INTENT(INOUT):: b(n) 1763 ! 1764 ! Following line is just to avoid compiler message about unused variables 1765 IF ( pivot(1) == 0 ) CONTINUE 1741 1766 1742 1767 #ifdef full_algebra … … 2297 2322 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2298 2323 2324 var => c(1:nvar) 2325 2299 2326 vl_glo = size(tempi, 1) 2300 2327
Note: See TracChangeset
for help on using the changeset viewer.
