- 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_passive1/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:23 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 … … 187 188 ! 188 189 ! File : chem_gasphase_mod_Global.f90 189 ! Time : Fri Mar 8 19:01:002019190 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm190 ! Time : Fri Mar 15 16:28:23 2019 191 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 191 192 ! Equation file : chem_gasphase_mod.kpp 192 193 ! Output root filename : chem_gasphase_mod … … 202 203 203 204 ! C - Concentration of all species 204 REAL(kind=dp) :: c(nspec)205 REAL(kind=dp), TARGET :: c(nspec) 205 206 ! VAR - Concentrations of variable species (global) 206 REAL(kind=dp):: var(nvar) 207 ! REAL(kind=dp):: var(nvar) var is now POINTER 207 208 ! FIX - Concentrations of fixed species (global) 208 209 REAL(kind=dp):: fix(nfix) 209 210 ! VAR,FIX are chunks of array C 210 EQUIVALENCE( c(1), var(1))211 211 ! RCONST - Rate constants (global) 212 212 REAL(kind=dp):: rconst(nreact) … … 253 253 ! 254 254 ! File : chem_gasphase_mod_JacobianSP.f90 255 ! Time : Fri Mar 8 19:01:002019256 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm255 ! Time : Fri Mar 15 16:28:23 2019 256 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 257 257 ! Equation file : chem_gasphase_mod.kpp 258 258 ! Output root filename : chem_gasphase_mod … … 297 297 ! 298 298 ! File : chem_gasphase_mod_Monitor.f90 299 ! Time : Fri Mar 8 19:01:002019300 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm299 ! Time : Fri Mar 15 16:28:23 2019 300 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 301 301 ! Equation file : chem_gasphase_mod.kpp 302 302 ! Output root filename : chem_gasphase_mod … … 356 356 ! 357 357 ! File : chem_gasphase_mod_Initialize.f90 358 ! Time : Fri Mar 8 19:01:002019359 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm358 ! Time : Fri Mar 15 16:28:23 2019 359 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 360 360 ! Equation file : chem_gasphase_mod.kpp 361 361 ! Output root filename : chem_gasphase_mod … … 382 382 ! 383 383 ! File : chem_gasphase_mod_Integrator.f90 384 ! Time : Fri Mar 8 19:01:002019385 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm384 ! Time : Fri Mar 15 16:28:23 2019 385 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 386 386 ! Equation file : chem_gasphase_mod.kpp 387 387 ! Output root filename : chem_gasphase_mod … … 440 440 ! 441 441 ! File : chem_gasphase_mod_LinearAlgebra.f90 442 ! Time : Fri Mar 8 19:01:002019443 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm442 ! Time : Fri Mar 15 16:28:23 2019 443 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 444 444 ! Equation file : chem_gasphase_mod.kpp 445 445 ! Output root filename : chem_gasphase_mod … … 467 467 ! 468 468 ! File : chem_gasphase_mod_Jacobian.f90 469 ! Time : Fri Mar 8 19:01:002019470 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm469 ! Time : Fri Mar 15 16:28:23 2019 470 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 471 471 ! Equation file : chem_gasphase_mod.kpp 472 472 ! Output root filename : chem_gasphase_mod … … 494 494 ! 495 495 ! File : chem_gasphase_mod_Function.f90 496 ! Time : Fri Mar 8 19:01:002019497 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm496 ! Time : Fri Mar 15 16:28:23 2019 497 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 498 498 ! Equation file : chem_gasphase_mod.kpp 499 499 ! Output root filename : chem_gasphase_mod … … 523 523 ! 524 524 ! File : chem_gasphase_mod_Rates.f90 525 ! Time : Fri Mar 8 19:01:002019526 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm525 ! Time : Fri Mar 15 16:28:23 2019 526 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 527 527 ! Equation file : chem_gasphase_mod.kpp 528 528 ! Output root filename : chem_gasphase_mod … … 549 549 ! 550 550 ! File : chem_gasphase_mod_Util.f90 551 ! Time : Fri Mar 8 19:01:002019552 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm551 ! Time : Fri Mar 15 16:28:23 2019 552 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 553 553 ! Equation file : chem_gasphase_mod.kpp 554 554 ! Output root filename : chem_gasphase_mod … … 665 665 666 666 667 ! openmp directives generated by kp4 668 669 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 670 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 671 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 672 667 673 CONTAINS 668 674 … … 676 682 k = is 677 683 cfactor = 1.000000e+00_dp 684 ! 685 ! Following line is just to avoid compiler message about unused variables 686 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 687 ! 678 688 679 689 x = (0.) * cfactor … … 761 771 762 772 773 ! Following line is just to avoid compiler message about unused variables 774 IF ( f(nfix) > 0.0_dp ) CONTINUE 775 ! 763 776 ! Computation of equation rates 764 777 … … 794 807 ! B - Temporary array 795 808 REAL(kind=dp):: b(1) 809 ! 810 ! Following line is just to avoid compiler message about unused variables 811 IF ( f(nfix) > 0.0_dp ) CONTINUE 796 812 797 813 ! B(1) = dA(1)/dV(1) … … 912 928 REAL(kind=dp) :: x(n), alpha 913 929 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 930 ! 931 ! Following line is just to avoid compiler message about unused variables 932 IF ( incx == 0 ) CONTINUE 914 933 915 934 IF (alpha .eq. one)RETURN … … 975 994 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 976 995 996 ! 997 ! Following line is just to avoid compiler message about unused variables 998 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 977 999 IF (alpha .eq. zero)RETURN 978 1000 IF (n .le. 0)RETURN … … 1707 1729 !~~~> inout variables 1708 1730 REAL(kind=dp), INTENT(INOUT):: b(n) 1731 ! 1732 ! Following line is just to avoid compiler message about unused variables 1733 IF ( pivot(1) == 0 ) CONTINUE 1709 1734 1710 1735 #ifdef full_algebra … … 2256 2281 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2257 2282 2283 var => c(1:nvar) 2284 2258 2285 vl_glo = size(tempi, 1) 2259 2286
Note: See TracChangeset
for help on using the changeset viewer.
