Changeset 3768 for palm/trunk/SOURCE/user_spectra.f90

Timestamp:

Feb 27, 2019 2:35:58 PM (5 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/user_spectra.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_spectra.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables removed + statement added to avoid compiler warnings about unused variables
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Renamed output variables
 ! 
@@ -91 +94 @@
     CHARACTER (LEN=*) ::  mode
 
-    INTEGER(iwp) ::  i    !< 
-    INTEGER(iwp) ::  j    !< 
-    INTEGER(iwp) ::  k    !< 
     INTEGER(iwp) ::  m    !< 
     INTEGER(iwp) ::  pr   !< 
 
+
+!
+!-- Next line is to avoid compiler warning about unused variable. Please remove.
+    IF ( pr == 0 )  CONTINUE
 
 !