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

    r3655 r3768  
    2525! -----------------
    2626! $Id$
     27! variables removed + statement added to avoid compiler warnings about unused variables
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! Renamed output variables
    2831!
     
    9194    CHARACTER (LEN=*) ::  mode
    9295
    93     INTEGER(iwp) ::  i    !<
    94     INTEGER(iwp) ::  j    !<
    95     INTEGER(iwp) ::  k    !<
    9696    INTEGER(iwp) ::  m    !<
    9797    INTEGER(iwp) ::  pr   !<
    9898
     99
     100!
     101!-- Next line is to avoid compiler warning about unused variable. Please remove.
     102    IF ( pr == 0 )  CONTINUE
    99103
    100104!
Note: See TracChangeset for help on using the changeset viewer.