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

    r3684 r3768  
    2525! -----------------
    2626! $Id$
     27! unused variables commented out + statement added to avoid compiler warnings
     28!
     29! 3684 2019-01-20 20:20:58Z knoop
    2730! Corrected "Former revisions" section
    2831!
     
    5962    IMPLICIT NONE
    6063
    61     INTEGER(iwp) ::  i  !< index along x
    62     INTEGER(iwp) ::  j  !< index along y
    63     INTEGER(iwp) ::  k  !< index along z
     64!    INTEGER(iwp) ::  i  !< index along x
     65!    INTEGER(iwp) ::  j  !< index along y
     66!    INTEGER(iwp) ::  k  !< index along z
    6467    INTEGER(iwp) ::  id !< variable identifyer, according to the settings in user_init_flight
    6568       
    6669    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var !< treated variable
     70
     71!
     72!-- Next line is to avoid compiler warning about unused variables. Please remove.
     73    IF ( id == 0  .OR.  var(nzb,nysg,nxlg) == 0.0_wp )  CONTINUE
    6774
    6875!
Note: See TracChangeset for help on using the changeset viewer.