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_phstatp/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:03 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:29 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
     
    190191!
    191192! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Fri Mar  8 19:01:03 2019
    193 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     193! Time                 : Fri Mar 15 16:28:29 2019
     194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194195! Equation file        : chem_gasphase_mod.kpp
    195196! Output root filename : chem_gasphase_mod
     
    205206
    206207! C - Concentration of all species
    207   REAL(kind=dp):: c(nspec)
     208  REAL(kind=dp), TARGET    :: c(nspec)
    208209! VAR - Concentrations of variable species (global)
    209   REAL(kind=dp):: var(nvar)
     210! REAL(kind=dp):: var(nvar)  var is now POINTER
    210211! FIX - Concentrations of fixed species (global)
    211212  REAL(kind=dp):: fix(nfix)
    212213! VAR,FIX are chunks of array C
    213       EQUIVALENCE( c(1), var(1))
    214214! RCONST - Rate constants (global)
    215215  REAL(kind=dp):: rconst(nreact)
     
    256256!
    257257! File                 : chem_gasphase_mod_JacobianSP.f90
    258 ! Time                 : Fri Mar  8 19:01:03 2019
    259 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     258! Time                 : Fri Mar 15 16:28:29 2019
     259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    260260! Equation file        : chem_gasphase_mod.kpp
    261261! Output root filename : chem_gasphase_mod
     
    300300!
    301301! File                 : chem_gasphase_mod_Monitor.f90
    302 ! Time                 : Fri Mar  8 19:01:03 2019
    303 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     302! Time                 : Fri Mar 15 16:28:29 2019
     303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    304304! Equation file        : chem_gasphase_mod.kpp
    305305! Output root filename : chem_gasphase_mod
     
    362362!
    363363! File                 : chem_gasphase_mod_Initialize.f90
    364 ! Time                 : Fri Mar  8 19:01:03 2019
    365 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     364! Time                 : Fri Mar 15 16:28:29 2019
     365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    366366! Equation file        : chem_gasphase_mod.kpp
    367367! Output root filename : chem_gasphase_mod
     
    388388!
    389389! File                 : chem_gasphase_mod_Integrator.f90
    390 ! Time                 : Fri Mar  8 19:01:03 2019
    391 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     390! Time                 : Fri Mar 15 16:28:29 2019
     391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    392392! Equation file        : chem_gasphase_mod.kpp
    393393! Output root filename : chem_gasphase_mod
     
    446446!
    447447! File                 : chem_gasphase_mod_LinearAlgebra.f90
    448 ! Time                 : Fri Mar  8 19:01:03 2019
    449 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     448! Time                 : Fri Mar 15 16:28:29 2019
     449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    450450! Equation file        : chem_gasphase_mod.kpp
    451451! Output root filename : chem_gasphase_mod
     
    473473!
    474474! File                 : chem_gasphase_mod_Jacobian.f90
    475 ! Time                 : Fri Mar  8 19:01:03 2019
    476 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     475! Time                 : Fri Mar 15 16:28:29 2019
     476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    477477! Equation file        : chem_gasphase_mod.kpp
    478478! Output root filename : chem_gasphase_mod
     
    500500!
    501501! File                 : chem_gasphase_mod_Function.f90
    502 ! Time                 : Fri Mar  8 19:01:03 2019
    503 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     502! Time                 : Fri Mar 15 16:28:29 2019
     503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    504504! Equation file        : chem_gasphase_mod.kpp
    505505! Output root filename : chem_gasphase_mod
     
    529529!
    530530! File                 : chem_gasphase_mod_Rates.f90
    531 ! Time                 : Fri Mar  8 19:01:03 2019
    532 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     531! Time                 : Fri Mar 15 16:28:29 2019
     532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    533533! Equation file        : chem_gasphase_mod.kpp
    534534! Output root filename : chem_gasphase_mod
     
    555555!
    556556! File                 : chem_gasphase_mod_Util.f90
    557 ! Time                 : Fri Mar  8 19:01:03 2019
    558 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     557! Time                 : Fri Mar 15 16:28:29 2019
     558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559559! Equation file        : chem_gasphase_mod.kpp
    560560! Output root filename : chem_gasphase_mod
     
    671671 
    672672 
     673  ! openmp directives generated by kp4
     674 
     675  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     676  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     677  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     678 
    673679 CONTAINS
    674680 
     
    682688  k = is
    683689  cfactor = 1.000000e+00_dp
     690
     691! Following line is just to avoid compiler message about unused variables
     692IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     693
    684694
    685695  x = (0.) * cfactor
     
    767777
    768778
     779! Following line is just to avoid compiler message about unused variables
     780IF ( f(nfix) > 0.0_dp )  CONTINUE
     781
    769782! Computation of equation rates
    770783  a(1) = rct(1) * v(3)
     
    810823! B - Temporary array
    811824  REAL(kind=dp):: b(4)
     825!
     826! Following line is just to avoid compiler message about unused variables
     827IF ( f(nfix) > 0.0_dp )  CONTINUE
    812828
    813829! B(1) = dA(1)/dV(3)
     
    954970      REAL(kind=dp) :: x(n), alpha
    955971      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     972
     973! Following line is just to avoid compiler message about unused variables
     974IF ( incx == 0 )  CONTINUE
    956975
    957976      IF (alpha .eq. one)RETURN
     
    10171036      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    10181037
     1038
     1039! Following line is just to avoid compiler message about unused variables
     1040IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10191041      IF (alpha .eq. zero)RETURN
    10201042      IF (n .le. 0)RETURN
     
    17491771!~~~> inout variables
    17501772   REAL(kind=dp), INTENT(INOUT):: b(n)
     1773
     1774! Following line is just to avoid compiler message about unused variables
     1775IF ( pivot(1) == 0 )  CONTINUE
    17511776
    17521777#ifdef full_algebra   
     
    23082333  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    23092334                                                                   
     2335  var => c(1:nvar)                                                 
     2336                                                                   
    23102337  vl_glo = size(tempi, 1)                                           
    23112338                                                                   
Note: See TracChangeset for help on using the changeset viewer.