Changeset 3241 for palm/trunk/SOURCE/data_output_spectra.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

• palm/trunk/SOURCE/data_output_spectra.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_spectra.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -95 +98 @@
 #if defined( __netcdf )
     USE control_parameters,                                                    &
-        ONLY:  message_string, run_description_header,                         &
-               time_since_reference_point
+        ONLY:  message_string, time_since_reference_point
 
     USE cpulog,                                                                &
@@ -118 +120 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  cranz_x !<
-    INTEGER(iwp) ::  cranz_y !<
     INTEGER(iwp) ::  m       !<
     INTEGER(iwp) ::  pr      !<
     
-    LOGICAL      ::  frame_x !< 
-    LOGICAL      ::  frame_y !<
-
     CALL cpu_log( log_point(31), 'data_output_spectra', 'start' )