Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/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_cbm4/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:21 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 … … 220 221 ! 221 222 ! File : chem_gasphase_mod_Global.f90 222 ! Time : Fri Mar 8 19:00:592019223 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm223 ! Time : Fri Mar 15 16:28:21 2019 224 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 224 225 ! Equation file : chem_gasphase_mod.kpp 225 226 ! Output root filename : chem_gasphase_mod … … 235 236 236 237 ! C - Concentration of all species 237 REAL(kind=dp) :: c(nspec)238 REAL(kind=dp), TARGET :: c(nspec) 238 239 ! VAR - Concentrations of variable species (global) 239 REAL(kind=dp):: var(nvar) 240 ! REAL(kind=dp):: var(nvar) var is now POINTER 240 241 ! FIX - Concentrations of fixed species (global) 241 242 REAL(kind=dp):: fix(nfix) 242 243 ! VAR,FIX are chunks of array C 243 EQUIVALENCE( c(1), var(1))244 EQUIVALENCE( c(33), fix(1))245 244 ! RCONST - Rate constants (global) 246 245 REAL(kind=dp):: rconst(nreact) … … 287 286 ! 288 287 ! File : chem_gasphase_mod_JacobianSP.f90 289 ! Time : Fri Mar 8 19:00:592019290 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm288 ! Time : Fri Mar 15 16:28:21 2019 289 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 291 290 ! Equation file : chem_gasphase_mod.kpp 292 291 ! Output root filename : chem_gasphase_mod … … 383 382 ! 384 383 ! File : chem_gasphase_mod_Monitor.f90 385 ! Time : Fri Mar 8 19:00:592019386 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm384 ! Time : Fri Mar 15 16:28:21 2019 385 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 387 386 ! Equation file : chem_gasphase_mod.kpp 388 387 ! Output root filename : chem_gasphase_mod … … 546 545 ! 547 546 ! File : chem_gasphase_mod_Initialize.f90 548 ! Time : Fri Mar 8 19:00:592019549 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm547 ! Time : Fri Mar 15 16:28:21 2019 548 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 550 549 ! Equation file : chem_gasphase_mod.kpp 551 550 ! Output root filename : chem_gasphase_mod … … 572 571 ! 573 572 ! File : chem_gasphase_mod_Integrator.f90 574 ! Time : Fri Mar 8 19:00:592019575 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm573 ! Time : Fri Mar 15 16:28:21 2019 574 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 576 575 ! Equation file : chem_gasphase_mod.kpp 577 576 ! Output root filename : chem_gasphase_mod … … 630 629 ! 631 630 ! File : chem_gasphase_mod_LinearAlgebra.f90 632 ! Time : Fri Mar 8 19:00:592019633 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm631 ! Time : Fri Mar 15 16:28:21 2019 632 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 634 633 ! Equation file : chem_gasphase_mod.kpp 635 634 ! Output root filename : chem_gasphase_mod … … 657 656 ! 658 657 ! File : chem_gasphase_mod_Jacobian.f90 659 ! Time : Fri Mar 8 19:00:592019660 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm658 ! Time : Fri Mar 15 16:28:21 2019 659 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 661 660 ! Equation file : chem_gasphase_mod.kpp 662 661 ! Output root filename : chem_gasphase_mod … … 684 683 ! 685 684 ! File : chem_gasphase_mod_Function.f90 686 ! Time : Fri Mar 8 19:00:592019687 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm685 ! Time : Fri Mar 15 16:28:21 2019 686 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 688 687 ! Equation file : chem_gasphase_mod.kpp 689 688 ! Output root filename : chem_gasphase_mod … … 713 712 ! 714 713 ! File : chem_gasphase_mod_Rates.f90 715 ! Time : Fri Mar 8 19:00:592019716 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm714 ! Time : Fri Mar 15 16:28:21 2019 715 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 717 716 ! Equation file : chem_gasphase_mod.kpp 718 717 ! Output root filename : chem_gasphase_mod … … 739 738 ! 740 739 ! File : chem_gasphase_mod_Util.f90 741 ! Time : Fri Mar 8 19:00:592019742 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm740 ! Time : Fri Mar 15 16:28:21 2019 741 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 743 742 ! Equation file : chem_gasphase_mod.kpp 744 743 ! Output root filename : chem_gasphase_mod … … 855 854 856 855 856 ! openmp directives generated by kp4 857 858 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 859 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 860 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 861 857 862 CONTAINS 858 863 … … 866 871 k = is 867 872 cfactor = 1.000000e+00_dp 873 ! 874 ! Following line is just to avoid compiler message about unused variables 875 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 876 ! 868 877 869 878 x = (0.) * cfactor … … 953 962 954 963 964 ! Following line is just to avoid compiler message about unused variables 965 IF ( f(nfix) > 0.0_dp ) CONTINUE 966 ! 955 967 ! Computation of equation rates 956 968 a(1) = rct(1) * v(26) … … 1207 1219 ! B - Temporary array 1208 1220 REAL(kind=dp):: b(138) 1221 ! 1222 ! Following line is just to avoid compiler message about unused variables 1223 IF ( f(nfix) > 0.0_dp ) CONTINUE 1209 1224 1210 1225 ! B(1) = dA(1)/dV(26) … … 2273 2288 REAL(kind=dp) :: x(n), alpha 2274 2289 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 2290 ! 2291 ! Following line is just to avoid compiler message about unused variables 2292 IF ( incx == 0 ) CONTINUE 2275 2293 2276 2294 IF (alpha .eq. one)RETURN … … 2336 2354 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 2337 2355 2356 ! 2357 ! Following line is just to avoid compiler message about unused variables 2358 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 2338 2359 IF (alpha .eq. zero)RETURN 2339 2360 IF (n .le. 0)RETURN … … 3068 3089 !~~~> inout variables 3069 3090 REAL(kind=dp), INTENT(INOUT):: b(n) 3091 ! 3092 ! Following line is just to avoid compiler message about unused variables 3093 IF ( pivot(1) == 0 ) CONTINUE 3070 3094 3071 3095 #ifdef full_algebra … … 3987 4011 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 3988 4012 4013 var => c(1:nvar) 4014 3989 4015 vl_glo = size(tempi, 1) 3990 4016
Note: See TracChangeset
for help on using the changeset viewer.
