Ignore:
Timestamp:
Feb 27, 2019 2:35:58 PM (2 years ago)
Author:
raasch
Message:

variables commented out + statement added to avoid compiler warnings about unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/user_lpm_advec.f90

    r3655 r3768  
    2525! -----------------
    2626! $Id$
     27! variables commented + statement added to avoid compiler warnings about unused variables
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! Corrected "Former revisions" section
    2831!
     
    8487    INTEGER(iwp) ::  jp   !< index of particle grid box, y-direction
    8588    INTEGER(iwp) ::  kp   !< index of particle grid box, z-direction
    86     INTEGER(iwp) ::  n    !< particle index
    87     INTEGER(iwp) ::  nb   !< index of sub-box particles are sorted in
     89!    INTEGER(iwp) ::  n    !< particle index
     90!    INTEGER(iwp) ::  nb   !< index of sub-box particles are sorted in
    8891
    89     INTEGER(iwp), DIMENSION(0:7)  ::  start_index !< start particle index for current sub-box
    90     INTEGER(iwp), DIMENSION(0:7)  ::  end_index   !< start particle index for current sub-box
     92!    INTEGER(iwp), DIMENSION(0:7)  ::  start_index !< start particle index for current sub-box
     93!    INTEGER(iwp), DIMENSION(0:7)  ::  end_index   !< start particle index for current sub-box
     94
     95!
     96!-- Next line is to avoid compiler warning about unused variables. Please remove.
     97    IF ( ip == 0  .OR.  jp == 0  .OR.  kp == 0 )  CONTINUE
    9198
    9299!
Note: See TracChangeset for help on using the changeset viewer.