Ignore:
Timestamp:
Mar 15, 2019 3:36:25 PM (5 years ago)
Author:
forkel
Message:

editing in kpp4palm: add statements for avoiding unused variables, remove $Id

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
     
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:00 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:23 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
     
    187188!
    188189! File                 : chem_gasphase_mod_Global.f90
    189 ! Time                 : Fri Mar  8 19:01:00 2019
    190 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     190! Time                 : Fri Mar 15 16:28:23 2019
     191! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    191192! Equation file        : chem_gasphase_mod.kpp
    192193! Output root filename : chem_gasphase_mod
     
    202203
    203204! C - Concentration of all species
    204   REAL(kind=dp):: c(nspec)
     205  REAL(kind=dp), TARGET    :: c(nspec)
    205206! VAR - Concentrations of variable species (global)
    206   REAL(kind=dp):: var(nvar)
     207! REAL(kind=dp):: var(nvar)  var is now POINTER
    207208! FIX - Concentrations of fixed species (global)
    208209  REAL(kind=dp):: fix(nfix)
    209210! VAR,FIX are chunks of array C
    210       EQUIVALENCE( c(1), var(1))
    211211! RCONST - Rate constants (global)
    212212  REAL(kind=dp):: rconst(nreact)
     
    253253!
    254254! File                 : chem_gasphase_mod_JacobianSP.f90
    255 ! Time                 : Fri Mar  8 19:01:00 2019
    256 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     255! Time                 : Fri Mar 15 16:28:23 2019
     256! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    257257! Equation file        : chem_gasphase_mod.kpp
    258258! Output root filename : chem_gasphase_mod
     
    297297!
    298298! File                 : chem_gasphase_mod_Monitor.f90
    299 ! Time                 : Fri Mar  8 19:01:00 2019
    300 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     299! Time                 : Fri Mar 15 16:28:23 2019
     300! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    301301! Equation file        : chem_gasphase_mod.kpp
    302302! Output root filename : chem_gasphase_mod
     
    356356!
    357357! File                 : chem_gasphase_mod_Initialize.f90
    358 ! Time                 : Fri Mar  8 19:01:00 2019
    359 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     358! Time                 : Fri Mar 15 16:28:23 2019
     359! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    360360! Equation file        : chem_gasphase_mod.kpp
    361361! Output root filename : chem_gasphase_mod
     
    382382!
    383383! File                 : chem_gasphase_mod_Integrator.f90
    384 ! Time                 : Fri Mar  8 19:01:00 2019
    385 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     384! Time                 : Fri Mar 15 16:28:23 2019
     385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386386! Equation file        : chem_gasphase_mod.kpp
    387387! Output root filename : chem_gasphase_mod
     
    440440!
    441441! File                 : chem_gasphase_mod_LinearAlgebra.f90
    442 ! Time                 : Fri Mar  8 19:01:00 2019
    443 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     442! Time                 : Fri Mar 15 16:28:23 2019
     443! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    444444! Equation file        : chem_gasphase_mod.kpp
    445445! Output root filename : chem_gasphase_mod
     
    467467!
    468468! File                 : chem_gasphase_mod_Jacobian.f90
    469 ! Time                 : Fri Mar  8 19:01:00 2019
    470 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     469! Time                 : Fri Mar 15 16:28:23 2019
     470! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    471471! Equation file        : chem_gasphase_mod.kpp
    472472! Output root filename : chem_gasphase_mod
     
    494494!
    495495! File                 : chem_gasphase_mod_Function.f90
    496 ! Time                 : Fri Mar  8 19:01:00 2019
    497 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     496! Time                 : Fri Mar 15 16:28:23 2019
     497! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    498498! Equation file        : chem_gasphase_mod.kpp
    499499! Output root filename : chem_gasphase_mod
     
    523523!
    524524! File                 : chem_gasphase_mod_Rates.f90
    525 ! Time                 : Fri Mar  8 19:01:00 2019
    526 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     525! Time                 : Fri Mar 15 16:28:23 2019
     526! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    527527! Equation file        : chem_gasphase_mod.kpp
    528528! Output root filename : chem_gasphase_mod
     
    549549!
    550550! File                 : chem_gasphase_mod_Util.f90
    551 ! Time                 : Fri Mar  8 19:01:00 2019
    552 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     551! Time                 : Fri Mar 15 16:28:23 2019
     552! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553553! Equation file        : chem_gasphase_mod.kpp
    554554! Output root filename : chem_gasphase_mod
     
    665665 
    666666 
     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 
    667673 CONTAINS
    668674 
     
    676682  k = is
    677683  cfactor = 1.000000e+00_dp
     684
     685! Following line is just to avoid compiler message about unused variables
     686IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     687
    678688
    679689  x = (0.) * cfactor
     
    761771
    762772
     773! Following line is just to avoid compiler message about unused variables
     774IF ( f(nfix) > 0.0_dp )  CONTINUE
     775
    763776! Computation of equation rates
    764777
     
    794807! B - Temporary array
    795808  REAL(kind=dp):: b(1)
     809!
     810! Following line is just to avoid compiler message about unused variables
     811IF ( f(nfix) > 0.0_dp )  CONTINUE
    796812
    797813! B(1) = dA(1)/dV(1)
     
    912928      REAL(kind=dp) :: x(n), alpha
    913929      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
     932IF ( incx == 0 )  CONTINUE
    914933
    915934      IF (alpha .eq. one)RETURN
     
    975994      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    976995
     996
     997! Following line is just to avoid compiler message about unused variables
     998IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    977999      IF (alpha .eq. zero)RETURN
    9781000      IF (n .le. 0)RETURN
     
    17071729!~~~> inout variables
    17081730   REAL(kind=dp), INTENT(INOUT):: b(n)
     1731
     1732! Following line is just to avoid compiler message about unused variables
     1733IF ( pivot(1) == 0 )  CONTINUE
    17091734
    17101735#ifdef full_algebra   
     
    22562281  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    22572282                                                                   
     2283  var => c(1:nvar)                                                 
     2284                                                                   
    22582285  vl_glo = size(tempi, 1)                                           
    22592286                                                                   
Note: See TracChangeset for help on using the changeset viewer.