Ignore:
Timestamp:
Mar 15, 2019 3:36:25 PM (6 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_simplep/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:02 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:28 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
     
    198199!
    199200! File                 : chem_gasphase_mod_Global.f90
    200 ! Time                 : Fri Mar  8 19:01:02 2019
    201 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     201! Time                 : Fri Mar 15 16:28:28 2019
     202! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    202203! Equation file        : chem_gasphase_mod.kpp
    203204! Output root filename : chem_gasphase_mod
     
    213214
    214215! C - Concentration of all species
    215   REAL(kind=dp):: c(nspec)
     216  REAL(kind=dp), TARGET    :: c(nspec)
    216217! VAR - Concentrations of variable species (global)
    217   REAL(kind=dp):: var(nvar)
     218! REAL(kind=dp):: var(nvar)  var is now POINTER
    218219! FIX - Concentrations of fixed species (global)
    219220  REAL(kind=dp):: fix(nfix)
    220221! VAR,FIX are chunks of array C
    221       EQUIVALENCE( c(1), var(1))
    222       EQUIVALENCE( c(11), fix(1))
    223222! RCONST - Rate constants (global)
    224223  REAL(kind=dp):: rconst(nreact)
     
    265264!
    266265! File                 : chem_gasphase_mod_JacobianSP.f90
    267 ! Time                 : Fri Mar  8 19:01:02 2019
    268 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     266! Time                 : Fri Mar 15 16:28:28 2019
     267! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    269268! Equation file        : chem_gasphase_mod.kpp
    270269! Output root filename : chem_gasphase_mod
     
    315314!
    316315! File                 : chem_gasphase_mod_Monitor.f90
    317 ! Time                 : Fri Mar  8 19:01:02 2019
    318 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     316! Time                 : Fri Mar 15 16:28:28 2019
     317! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    319318! Equation file        : chem_gasphase_mod.kpp
    320319! Output root filename : chem_gasphase_mod
     
    385384!
    386385! File                 : chem_gasphase_mod_Initialize.f90
    387 ! Time                 : Fri Mar  8 19:01:02 2019
    388 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     386! Time                 : Fri Mar 15 16:28:28 2019
     387! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    389388! Equation file        : chem_gasphase_mod.kpp
    390389! Output root filename : chem_gasphase_mod
     
    411410!
    412411! File                 : chem_gasphase_mod_Integrator.f90
    413 ! Time                 : Fri Mar  8 19:01:02 2019
    414 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     412! Time                 : Fri Mar 15 16:28:28 2019
     413! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    415414! Equation file        : chem_gasphase_mod.kpp
    416415! Output root filename : chem_gasphase_mod
     
    469468!
    470469! File                 : chem_gasphase_mod_LinearAlgebra.f90
    471 ! Time                 : Fri Mar  8 19:01:02 2019
    472 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     470! Time                 : Fri Mar 15 16:28:28 2019
     471! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    473472! Equation file        : chem_gasphase_mod.kpp
    474473! Output root filename : chem_gasphase_mod
     
    496495!
    497496! File                 : chem_gasphase_mod_Jacobian.f90
    498 ! Time                 : Fri Mar  8 19:01:02 2019
    499 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     497! Time                 : Fri Mar 15 16:28:28 2019
     498! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    500499! Equation file        : chem_gasphase_mod.kpp
    501500! Output root filename : chem_gasphase_mod
     
    523522!
    524523! File                 : chem_gasphase_mod_Function.f90
    525 ! Time                 : Fri Mar  8 19:01:02 2019
    526 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     524! Time                 : Fri Mar 15 16:28:28 2019
     525! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    527526! Equation file        : chem_gasphase_mod.kpp
    528527! Output root filename : chem_gasphase_mod
     
    552551!
    553552! File                 : chem_gasphase_mod_Rates.f90
    554 ! Time                 : Fri Mar  8 19:01:02 2019
    555 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     553! Time                 : Fri Mar 15 16:28:28 2019
     554! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556555! Equation file        : chem_gasphase_mod.kpp
    557556! Output root filename : chem_gasphase_mod
     
    578577!
    579578! File                 : chem_gasphase_mod_Util.f90
    580 ! Time                 : Fri Mar  8 19:01:02 2019
    581 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     579! Time                 : Fri Mar 15 16:28:28 2019
     580! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    582581! Equation file        : chem_gasphase_mod.kpp
    583582! Output root filename : chem_gasphase_mod
     
    694693 
    695694 
     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 
    696701 CONTAINS
    697702 
     
    705710  k = is
    706711  cfactor = 1.000000e+00_dp
     712
     713! Following line is just to avoid compiler message about unused variables
     714IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     715
    707716
    708717  x = (0.) * cfactor
     
    790799
    791800
     801! Following line is just to avoid compiler message about unused variables
     802IF ( f(nfix) > 0.0_dp )  CONTINUE
     803
    792804! Computation of equation rates
    793805  a(1) = rct(1) * v(10)
     
    852864! B - Temporary array
    853865  REAL(kind=dp):: b(14)
     866!
     867! Following line is just to avoid compiler message about unused variables
     868IF ( f(nfix) > 0.0_dp )  CONTINUE
    854869
    855870! B(1) = dA(1)/dV(10)
     
    10751090      REAL(kind=dp) :: x(n), alpha
    10761091      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
     1094IF ( incx == 0 )  CONTINUE
    10771095
    10781096      IF (alpha .eq. one)RETURN
     
    11381156      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    11391157
     1158
     1159! Following line is just to avoid compiler message about unused variables
     1160IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    11401161      IF (alpha .eq. zero)RETURN
    11411162      IF (n .le. 0)RETURN
     
    18701891!~~~> inout variables
    18711892   REAL(kind=dp), INTENT(INOUT):: b(n)
     1893
     1894! Following line is just to avoid compiler message about unused variables
     1895IF ( pivot(1) == 0 )  CONTINUE
    18721896
    18731897#ifdef full_algebra   
     
    24552479  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    24562480                                                                   
     2481  var => c(1:nvar)                                                 
     2482                                                                   
    24572483  vl_glo = size(tempi, 1)                                           
    24582484                                                                   
Note: See TracChangeset for help on using the changeset viewer.