Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/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_passive/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:00:592019116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm116 ! Time : Fri Mar 15 16:28:22 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 … … 188 189 ! 189 190 ! File : chem_gasphase_mod_Global.f90 190 ! Time : Fri Mar 8 19:00:592019191 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm191 ! Time : Fri Mar 15 16:28:22 2019 192 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 192 193 ! Equation file : chem_gasphase_mod.kpp 193 194 ! Output root filename : chem_gasphase_mod … … 203 204 204 205 ! C - Concentration of all species 205 REAL(kind=dp) :: c(nspec)206 REAL(kind=dp), TARGET :: c(nspec) 206 207 ! VAR - Concentrations of variable species (global) 207 REAL(kind=dp):: var(nvar) 208 ! REAL(kind=dp):: var(nvar) var is now POINTER 208 209 ! FIX - Concentrations of fixed species (global) 209 210 REAL(kind=dp):: fix(nfix) 210 211 ! VAR,FIX are chunks of array C 211 EQUIVALENCE( c(1), var(1))212 212 ! RCONST - Rate constants (global) 213 213 REAL(kind=dp):: rconst(nreact) … … 254 254 ! 255 255 ! File : chem_gasphase_mod_JacobianSP.f90 256 ! Time : Fri Mar 8 19:00:592019257 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm256 ! Time : Fri Mar 15 16:28:22 2019 257 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 258 258 ! Equation file : chem_gasphase_mod.kpp 259 259 ! Output root filename : chem_gasphase_mod … … 298 298 ! 299 299 ! File : chem_gasphase_mod_Monitor.f90 300 ! Time : Fri Mar 8 19:00:592019301 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm300 ! Time : Fri Mar 15 16:28:22 2019 301 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 302 302 ! Equation file : chem_gasphase_mod.kpp 303 303 ! Output root filename : chem_gasphase_mod … … 358 358 ! 359 359 ! File : chem_gasphase_mod_Initialize.f90 360 ! Time : Fri Mar 8 19:00:592019361 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm360 ! Time : Fri Mar 15 16:28:22 2019 361 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 362 362 ! Equation file : chem_gasphase_mod.kpp 363 363 ! Output root filename : chem_gasphase_mod … … 384 384 ! 385 385 ! File : chem_gasphase_mod_Integrator.f90 386 ! Time : Fri Mar 8 19:00:592019387 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm386 ! Time : Fri Mar 15 16:28:22 2019 387 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 388 388 ! Equation file : chem_gasphase_mod.kpp 389 389 ! Output root filename : chem_gasphase_mod … … 442 442 ! 443 443 ! File : chem_gasphase_mod_LinearAlgebra.f90 444 ! Time : Fri Mar 8 19:00:592019445 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm444 ! Time : Fri Mar 15 16:28:22 2019 445 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 446 446 ! Equation file : chem_gasphase_mod.kpp 447 447 ! Output root filename : chem_gasphase_mod … … 469 469 ! 470 470 ! File : chem_gasphase_mod_Jacobian.f90 471 ! Time : Fri Mar 8 19:00:592019472 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm471 ! Time : Fri Mar 15 16:28:22 2019 472 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 473 473 ! Equation file : chem_gasphase_mod.kpp 474 474 ! Output root filename : chem_gasphase_mod … … 496 496 ! 497 497 ! File : chem_gasphase_mod_Function.f90 498 ! Time : Fri Mar 8 19:00:592019499 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm498 ! Time : Fri Mar 15 16:28:22 2019 499 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 500 500 ! Equation file : chem_gasphase_mod.kpp 501 501 ! Output root filename : chem_gasphase_mod … … 525 525 ! 526 526 ! File : chem_gasphase_mod_Rates.f90 527 ! Time : Fri Mar 8 19:00:592019528 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm527 ! Time : Fri Mar 15 16:28:22 2019 528 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 529 529 ! Equation file : chem_gasphase_mod.kpp 530 530 ! Output root filename : chem_gasphase_mod … … 551 551 ! 552 552 ! File : chem_gasphase_mod_Util.f90 553 ! Time : Fri Mar 8 19:00:592019554 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm553 ! Time : Fri Mar 15 16:28:22 2019 554 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 555 555 ! Equation file : chem_gasphase_mod.kpp 556 556 ! Output root filename : chem_gasphase_mod … … 667 667 668 668 669 ! openmp directives generated by kp4 670 671 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 672 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 673 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 674 669 675 CONTAINS 670 676 … … 678 684 k = is 679 685 cfactor = 1.000000e+00_dp 686 ! 687 ! Following line is just to avoid compiler message about unused variables 688 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 689 ! 680 690 681 691 x = (0.) * cfactor … … 763 773 764 774 775 ! Following line is just to avoid compiler message about unused variables 776 IF ( f(nfix) > 0.0_dp ) CONTINUE 777 ! 765 778 ! Computation of equation rates 766 779 … … 798 811 ! B - Temporary array 799 812 REAL(kind=dp):: b(2) 813 ! 814 ! Following line is just to avoid compiler message about unused variables 815 IF ( f(nfix) > 0.0_dp ) CONTINUE 800 816 801 817 ! B(1) = dA(1)/dV(1) … … 921 937 REAL(kind=dp) :: x(n), alpha 922 938 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 939 ! 940 ! Following line is just to avoid compiler message about unused variables 941 IF ( incx == 0 ) CONTINUE 923 942 924 943 IF (alpha .eq. one)RETURN … … 984 1003 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 985 1004 1005 ! 1006 ! Following line is just to avoid compiler message about unused variables 1007 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 986 1008 IF (alpha .eq. zero)RETURN 987 1009 IF (n .le. 0)RETURN … … 1716 1738 !~~~> inout variables 1717 1739 REAL(kind=dp), INTENT(INOUT):: b(n) 1740 ! 1741 ! Following line is just to avoid compiler message about unused variables 1742 IF ( pivot(1) == 0 ) CONTINUE 1718 1743 1719 1744 #ifdef full_algebra … … 2266 2291 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2267 2292 2293 var => c(1:nvar) 2294 2268 2295 vl_glo = size(tempi, 1) 2269 2296
Note: See TracChangeset
for help on using the changeset viewer.
