Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/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_simplep/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:28 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 … … 198 199 ! 199 200 ! File : chem_gasphase_mod_Global.f90 200 ! Time : Fri Mar 8 19:01:022019201 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm201 ! Time : Fri Mar 15 16:28:28 2019 202 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 202 203 ! Equation file : chem_gasphase_mod.kpp 203 204 ! Output root filename : chem_gasphase_mod … … 213 214 214 215 ! C - Concentration of all species 215 REAL(kind=dp) :: c(nspec)216 REAL(kind=dp), TARGET :: c(nspec) 216 217 ! VAR - Concentrations of variable species (global) 217 REAL(kind=dp):: var(nvar) 218 ! REAL(kind=dp):: var(nvar) var is now POINTER 218 219 ! FIX - Concentrations of fixed species (global) 219 220 REAL(kind=dp):: fix(nfix) 220 221 ! VAR,FIX are chunks of array C 221 EQUIVALENCE( c(1), var(1))222 EQUIVALENCE( c(11), fix(1))223 222 ! RCONST - Rate constants (global) 224 223 REAL(kind=dp):: rconst(nreact) … … 265 264 ! 266 265 ! File : chem_gasphase_mod_JacobianSP.f90 267 ! Time : Fri Mar 8 19:01:022019268 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm266 ! Time : Fri Mar 15 16:28:28 2019 267 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 269 268 ! Equation file : chem_gasphase_mod.kpp 270 269 ! Output root filename : chem_gasphase_mod … … 315 314 ! 316 315 ! File : chem_gasphase_mod_Monitor.f90 317 ! Time : Fri Mar 8 19:01:022019318 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm316 ! Time : Fri Mar 15 16:28:28 2019 317 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 319 318 ! Equation file : chem_gasphase_mod.kpp 320 319 ! Output root filename : chem_gasphase_mod … … 385 384 ! 386 385 ! File : chem_gasphase_mod_Initialize.f90 387 ! Time : Fri Mar 8 19:01:022019388 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm386 ! Time : Fri Mar 15 16:28:28 2019 387 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 389 388 ! Equation file : chem_gasphase_mod.kpp 390 389 ! Output root filename : chem_gasphase_mod … … 411 410 ! 412 411 ! File : chem_gasphase_mod_Integrator.f90 413 ! Time : Fri Mar 8 19:01:022019414 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm412 ! Time : Fri Mar 15 16:28:28 2019 413 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 415 414 ! Equation file : chem_gasphase_mod.kpp 416 415 ! Output root filename : chem_gasphase_mod … … 469 468 ! 470 469 ! File : chem_gasphase_mod_LinearAlgebra.f90 471 ! Time : Fri Mar 8 19:01:022019472 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm470 ! Time : Fri Mar 15 16:28:28 2019 471 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 473 472 ! Equation file : chem_gasphase_mod.kpp 474 473 ! Output root filename : chem_gasphase_mod … … 496 495 ! 497 496 ! File : chem_gasphase_mod_Jacobian.f90 498 ! Time : Fri Mar 8 19:01:022019499 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm497 ! Time : Fri Mar 15 16:28:28 2019 498 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 500 499 ! Equation file : chem_gasphase_mod.kpp 501 500 ! Output root filename : chem_gasphase_mod … … 523 522 ! 524 523 ! File : chem_gasphase_mod_Function.f90 525 ! Time : Fri Mar 8 19:01:022019526 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm524 ! Time : Fri Mar 15 16:28:28 2019 525 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 527 526 ! Equation file : chem_gasphase_mod.kpp 528 527 ! Output root filename : chem_gasphase_mod … … 552 551 ! 553 552 ! File : chem_gasphase_mod_Rates.f90 554 ! Time : Fri Mar 8 19:01:022019555 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm553 ! Time : Fri Mar 15 16:28:28 2019 554 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 556 555 ! Equation file : chem_gasphase_mod.kpp 557 556 ! Output root filename : chem_gasphase_mod … … 578 577 ! 579 578 ! File : chem_gasphase_mod_Util.f90 580 ! Time : Fri Mar 8 19:01:022019581 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm579 ! Time : Fri Mar 15 16:28:28 2019 580 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 582 581 ! Equation file : chem_gasphase_mod.kpp 583 582 ! Output root filename : chem_gasphase_mod … … 694 693 695 694 695 ! openmp directives generated by kp4 696 697 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 698 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 699 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 700 696 701 CONTAINS 697 702 … … 705 710 k = is 706 711 cfactor = 1.000000e+00_dp 712 ! 713 ! Following line is just to avoid compiler message about unused variables 714 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 715 ! 707 716 708 717 x = (0.) * cfactor … … 790 799 791 800 801 ! Following line is just to avoid compiler message about unused variables 802 IF ( f(nfix) > 0.0_dp ) CONTINUE 803 ! 792 804 ! Computation of equation rates 793 805 a(1) = rct(1) * v(10) … … 852 864 ! B - Temporary array 853 865 REAL(kind=dp):: b(14) 866 ! 867 ! Following line is just to avoid compiler message about unused variables 868 IF ( f(nfix) > 0.0_dp ) CONTINUE 854 869 855 870 ! B(1) = dA(1)/dV(10) … … 1075 1090 REAL(kind=dp) :: x(n), alpha 1076 1091 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 1092 ! 1093 ! Following line is just to avoid compiler message about unused variables 1094 IF ( incx == 0 ) CONTINUE 1077 1095 1078 1096 IF (alpha .eq. one)RETURN … … 1138 1156 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 1139 1157 1158 ! 1159 ! Following line is just to avoid compiler message about unused variables 1160 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1140 1161 IF (alpha .eq. zero)RETURN 1141 1162 IF (n .le. 0)RETURN … … 1870 1891 !~~~> inout variables 1871 1892 REAL(kind=dp), INTENT(INOUT):: b(n) 1893 ! 1894 ! Following line is just to avoid compiler message about unused variables 1895 IF ( pivot(1) == 0 ) CONTINUE 1872 1896 1873 1897 #ifdef full_algebra … … 2455 2479 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2456 2480 2481 var => c(1:nvar) 2482 2457 2483 vl_glo = size(tempi, 1) 2458 2484
Note: See TracChangeset
for help on using the changeset viewer.
