- 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_simple/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:022019116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm116 ! Time : Fri Mar 15 16:28:27 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 … … 197 198 ! 198 199 ! File : chem_gasphase_mod_Global.f90 199 ! Time : Fri Mar 8 19:01:022019200 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm200 ! Time : Fri Mar 15 16:28:27 2019 201 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 201 202 ! Equation file : chem_gasphase_mod.kpp 202 203 ! Output root filename : chem_gasphase_mod … … 212 213 213 214 ! C - Concentration of all species 214 REAL(kind=dp) :: c(nspec)215 REAL(kind=dp), TARGET :: c(nspec) 215 216 ! VAR - Concentrations of variable species (global) 216 REAL(kind=dp):: var(nvar) 217 ! REAL(kind=dp):: var(nvar) var is now POINTER 217 218 ! FIX - Concentrations of fixed species (global) 218 219 REAL(kind=dp):: fix(nfix) 219 220 ! VAR,FIX are chunks of array C 220 EQUIVALENCE( c(1), var(1))221 EQUIVALENCE( c(10), fix(1))222 221 ! RCONST - Rate constants (global) 223 222 REAL(kind=dp):: rconst(nreact) … … 264 263 ! 265 264 ! File : chem_gasphase_mod_JacobianSP.f90 266 ! Time : Fri Mar 8 19:01:022019267 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm265 ! Time : Fri Mar 15 16:28:27 2019 266 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 268 267 ! Equation file : chem_gasphase_mod.kpp 269 268 ! Output root filename : chem_gasphase_mod … … 314 313 ! 315 314 ! File : chem_gasphase_mod_Monitor.f90 316 ! Time : Fri Mar 8 19:01:022019317 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm315 ! Time : Fri Mar 15 16:28:27 2019 316 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 318 317 ! Equation file : chem_gasphase_mod.kpp 319 318 ! Output root filename : chem_gasphase_mod … … 383 382 ! 384 383 ! File : chem_gasphase_mod_Initialize.f90 385 ! Time : Fri Mar 8 19:01:022019386 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm384 ! Time : Fri Mar 15 16:28:27 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 … … 409 408 ! 410 409 ! File : chem_gasphase_mod_Integrator.f90 411 ! Time : Fri Mar 8 19:01:022019412 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm410 ! Time : Fri Mar 15 16:28:27 2019 411 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 413 412 ! Equation file : chem_gasphase_mod.kpp 414 413 ! Output root filename : chem_gasphase_mod … … 467 466 ! 468 467 ! File : chem_gasphase_mod_LinearAlgebra.f90 469 ! Time : Fri Mar 8 19:01:022019470 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm468 ! Time : Fri Mar 15 16:28:27 2019 469 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 471 470 ! Equation file : chem_gasphase_mod.kpp 472 471 ! Output root filename : chem_gasphase_mod … … 494 493 ! 495 494 ! File : chem_gasphase_mod_Jacobian.f90 496 ! Time : Fri Mar 8 19:01:022019497 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm495 ! Time : Fri Mar 15 16:28:27 2019 496 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 498 497 ! Equation file : chem_gasphase_mod.kpp 499 498 ! Output root filename : chem_gasphase_mod … … 521 520 ! 522 521 ! File : chem_gasphase_mod_Function.f90 523 ! Time : Fri Mar 8 19:01:022019524 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm522 ! Time : Fri Mar 15 16:28:27 2019 523 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 525 524 ! Equation file : chem_gasphase_mod.kpp 526 525 ! Output root filename : chem_gasphase_mod … … 550 549 ! 551 550 ! File : chem_gasphase_mod_Rates.f90 552 ! Time : Fri Mar 8 19:01:022019553 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm551 ! Time : Fri Mar 15 16:28:27 2019 552 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 554 553 ! Equation file : chem_gasphase_mod.kpp 555 554 ! Output root filename : chem_gasphase_mod … … 576 575 ! 577 576 ! File : chem_gasphase_mod_Util.f90 578 ! Time : Fri Mar 8 19:01:022019579 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm577 ! Time : Fri Mar 15 16:28:27 2019 578 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 580 579 ! Equation file : chem_gasphase_mod.kpp 581 580 ! Output root filename : chem_gasphase_mod … … 692 691 693 692 693 ! openmp directives generated by kp4 694 695 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 696 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 697 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 698 694 699 CONTAINS 695 700 … … 703 708 k = is 704 709 cfactor = 1.000000e+00_dp 710 ! 711 ! Following line is just to avoid compiler message about unused variables 712 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 713 ! 705 714 706 715 x = (0.) * cfactor … … 788 797 789 798 799 ! Following line is just to avoid compiler message about unused variables 800 IF ( f(nfix) > 0.0_dp ) CONTINUE 801 ! 790 802 ! Computation of equation rates 791 803 a(1) = rct(1) * v(7) … … 849 861 ! B - Temporary array 850 862 REAL(kind=dp):: b(13) 863 ! 864 ! Following line is just to avoid compiler message about unused variables 865 IF ( f(nfix) > 0.0_dp ) CONTINUE 851 866 852 867 ! B(1) = dA(1)/dV(7) … … 1067 1082 REAL(kind=dp) :: x(n), alpha 1068 1083 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 1084 ! 1085 ! Following line is just to avoid compiler message about unused variables 1086 IF ( incx == 0 ) CONTINUE 1069 1087 1070 1088 IF (alpha .eq. one)RETURN … … 1130 1148 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 1131 1149 1150 ! 1151 ! Following line is just to avoid compiler message about unused variables 1152 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1132 1153 IF (alpha .eq. zero)RETURN 1133 1154 IF (n .le. 0)RETURN … … 1862 1883 !~~~> inout variables 1863 1884 REAL(kind=dp), INTENT(INOUT):: b(n) 1885 ! 1886 ! Following line is just to avoid compiler message about unused variables 1887 IF ( pivot(1) == 0 ) CONTINUE 1864 1888 1865 1889 #ifdef full_algebra … … 2449 2473 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2450 2474 2475 var => c(1:nvar) 2476 2451 2477 vl_glo = size(tempi, 1) 2452 2478
Note: See TracChangeset
for help on using the changeset viewer.
