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_set_attributes.f90

    r3655 r3768  
    2525! -----------------
    2626! $Id$
     27! unused variables commented out to avoid compiler warnings
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! Corrected "Former revisions" section
    2831!
     
    6467 
    6568
    66     USE indices,                                                               &
    67         ONLY:  nxl, nxr, nys, nyn, nzb, nzt
     69!    USE indices,                                                               &
     70!        ONLY:  nxl, nxr, nys, nyn, nzb, nzt
    6871
    6972    USE kinds
     
    7578    IMPLICIT NONE
    7679
    77     INTEGER(iwp) ::  ip   !<
    78     INTEGER(iwp) ::  jp   !<
    79     INTEGER(iwp) ::  kp   !<
    80     INTEGER(iwp) ::  n    !<
     80!    INTEGER(iwp) ::  ip   !<
     81!    INTEGER(iwp) ::  jp   !<
     82!    INTEGER(iwp) ::  kp   !<
     83!    INTEGER(iwp) ::  n    !<
    8184
    8285!
Note: See TracChangeset for help on using the changeset viewer.