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

Timestamp:

Mar 8, 2016 5:49:27 AM (8 years ago)

Author:

raasch

Message:

pmc-change in server-client get-put, spectra-directives removed, spectra-package modularized

File:

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

palm/trunk/SOURCE/data_output_spectra.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! cpp-directives for spectra removed, immediate return if no spectra levels are
+! given
 !
 ! Former revisions:
@@ -73 +74 @@
  
 #if defined( __netcdf )
-#if defined( __spectra )
-
     USE control_parameters,                                                    &
         ONLY:  average_count_sp, averaging_interval_sp, dosp_time_count,       &
@@ -93 +92 @@
 
     USE spectrum,                                                              &
-        ONLY:  data_output_sp, spectra_direction
+        ONLY:  comp_spectra_level, data_output_sp, spectra_direction
 
     USE statistics,                                                            &
@@ -110 +109 @@
 
     CALL cpu_log( log_point(31), 'data_output_spectra', 'start' )
+
+!
+!-- Check if user gave any levels for spectra to be calculated
+    IF ( comp_spectra_level(1) == 999999 )  RETURN
 
 !
@@ -206 +209 @@
 
 #endif
-#endif
  END SUBROUTINE data_output_spectra
 
@@ -299 +301 @@
 
 
-#if defined( __spectra )
 !------------------------------------------------------------------------------!
 ! Description:
@@ -714 +715 @@
 
  END SUBROUTINE data_output_spectra_y
-#endif