Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/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_salsagas/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:012019116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm116 ! Time : Fri Mar 15 16:28:25 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 … … 191 192 ! 192 193 ! File : chem_gasphase_mod_Global.f90 193 ! Time : Fri Mar 8 19:01:012019194 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm194 ! Time : Fri Mar 15 16:28:25 2019 195 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 195 196 ! Equation file : chem_gasphase_mod.kpp 196 197 ! Output root filename : chem_gasphase_mod … … 206 207 207 208 ! C - Concentration of all species 208 REAL(kind=dp) :: c(nspec)209 REAL(kind=dp), TARGET :: c(nspec) 209 210 ! VAR - Concentrations of variable species (global) 210 REAL(kind=dp):: var(nvar) 211 ! REAL(kind=dp):: var(nvar) var is now POINTER 211 212 ! FIX - Concentrations of fixed species (global) 212 213 REAL(kind=dp):: fix(nfix) 213 214 ! VAR,FIX are chunks of array C 214 EQUIVALENCE( c(1), var(1))215 215 ! RCONST - Rate constants (global) 216 216 REAL(kind=dp):: rconst(nreact) … … 259 259 ! 260 260 ! File : chem_gasphase_mod_JacobianSP.f90 261 ! Time : Fri Mar 8 19:01:012019262 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm261 ! Time : Fri Mar 15 16:28:25 2019 262 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 263 263 ! Equation file : chem_gasphase_mod.kpp 264 264 ! Output root filename : chem_gasphase_mod … … 303 303 ! 304 304 ! File : chem_gasphase_mod_Monitor.f90 305 ! Time : Fri Mar 8 19:01:012019306 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm305 ! Time : Fri Mar 15 16:28:25 2019 306 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 307 307 ! Equation file : chem_gasphase_mod.kpp 308 308 ! Output root filename : chem_gasphase_mod … … 367 367 ! 368 368 ! File : chem_gasphase_mod_Initialize.f90 369 ! Time : Fri Mar 8 19:01:012019370 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm369 ! Time : Fri Mar 15 16:28:25 2019 370 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 371 371 ! Equation file : chem_gasphase_mod.kpp 372 372 ! Output root filename : chem_gasphase_mod … … 393 393 ! 394 394 ! File : chem_gasphase_mod_Integrator.f90 395 ! Time : Fri Mar 8 19:01:012019396 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm395 ! Time : Fri Mar 15 16:28:25 2019 396 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 397 397 ! Equation file : chem_gasphase_mod.kpp 398 398 ! Output root filename : chem_gasphase_mod … … 451 451 ! 452 452 ! File : chem_gasphase_mod_LinearAlgebra.f90 453 ! Time : Fri Mar 8 19:01:012019454 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm453 ! Time : Fri Mar 15 16:28:25 2019 454 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 455 455 ! Equation file : chem_gasphase_mod.kpp 456 456 ! Output root filename : chem_gasphase_mod … … 478 478 ! 479 479 ! File : chem_gasphase_mod_Jacobian.f90 480 ! Time : Fri Mar 8 19:01:012019481 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm480 ! Time : Fri Mar 15 16:28:25 2019 481 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 482 482 ! Equation file : chem_gasphase_mod.kpp 483 483 ! Output root filename : chem_gasphase_mod … … 505 505 ! 506 506 ! File : chem_gasphase_mod_Function.f90 507 ! Time : Fri Mar 8 19:01:012019508 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm507 ! Time : Fri Mar 15 16:28:25 2019 508 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 509 509 ! Equation file : chem_gasphase_mod.kpp 510 510 ! Output root filename : chem_gasphase_mod … … 534 534 ! 535 535 ! File : chem_gasphase_mod_Rates.f90 536 ! Time : Fri Mar 8 19:01:012019537 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm536 ! Time : Fri Mar 15 16:28:25 2019 537 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 538 538 ! Equation file : chem_gasphase_mod.kpp 539 539 ! Output root filename : chem_gasphase_mod … … 560 560 ! 561 561 ! File : chem_gasphase_mod_Util.f90 562 ! Time : Fri Mar 8 19:01:012019563 ! Working directory : /home/forkel-r/palmstuff/work/trunk201903 08/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm562 ! Time : Fri Mar 15 16:28:25 2019 563 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 564 564 ! Equation file : chem_gasphase_mod.kpp 565 565 ! Output root filename : chem_gasphase_mod … … 676 676 677 677 678 ! openmp directives generated by kp4 679 680 !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded) 681 !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor) 682 !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl) 683 678 684 CONTAINS 679 685 … … 687 693 k = is 688 694 cfactor = 1.000000e+00_dp 695 ! 696 ! Following line is just to avoid compiler message about unused variables 697 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 698 ! 689 699 690 700 x = (0.) * cfactor … … 772 782 773 783 784 ! Following line is just to avoid compiler message about unused variables 785 IF ( f(nfix) > 0.0_dp ) CONTINUE 786 ! 774 787 ! Computation of equation rates 775 788 … … 813 826 ! B - Temporary array 814 827 REAL(kind=dp):: b(5) 828 ! 829 ! Following line is just to avoid compiler message about unused variables 830 IF ( f(nfix) > 0.0_dp ) CONTINUE 815 831 816 832 ! B(1) = dA(1)/dV(2) … … 951 967 REAL(kind=dp) :: x(n), alpha 952 968 REAL(kind=dp), PARAMETER :: zero=0.0_dp, one=1.0_dp 969 ! 970 ! Following line is just to avoid compiler message about unused variables 971 IF ( incx == 0 ) CONTINUE 953 972 954 973 IF (alpha .eq. one)RETURN … … 1014 1033 REAL(kind=dp), PARAMETER :: zero = 0.0_dp 1015 1034 1035 ! 1036 ! Following line is just to avoid compiler message about unused variables 1037 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1016 1038 IF (alpha .eq. zero)RETURN 1017 1039 IF (n .le. 0)RETURN … … 1746 1768 !~~~> inout variables 1747 1769 REAL(kind=dp), INTENT(INOUT):: b(n) 1770 ! 1771 ! Following line is just to avoid compiler message about unused variables 1772 IF ( pivot(1) == 0 ) CONTINUE 1748 1773 1749 1774 #ifdef full_algebra … … 2299 2324 IF (PRESENT (rcntrl_i)) rcntrl = rcntrl_i 2300 2325 2326 var => c(1:nvar) 2327 2301 2328 vl_glo = size(tempi, 1) 2302 2329
Note: See TracChangeset
for help on using the changeset viewer.
