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

Timestamp:

Mar 21, 2014 9:13:16 AM (9 years ago)

Author:

suehring

Message:

Bugfixes in ONLY statements

File:

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

palm/trunk/SOURCE/data_output_spectra.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: module statistics and module spectrum added, missing variables in ONLY
+! arguments added
 !
 ! Former revisions:
@@ -58 +59 @@
 
     USE control_parameters,                                                    &
-        ONLY:  average_count_sp, averaging_interval_sp, dosp_time_count
+        ONLY:  average_count_sp, averaging_interval_sp, dosp_time_count,       &
+               message_string, netcdf_output, run_description_header,          &
+               time_since_reference_point
 
     USE cpulog,                                                                &
@@ -70 +73 @@
 
     USE spectrum,                                                              &
-        ONLY:  data_output_sp
+        ONLY:  data_output_sp, spectra_direction
 
     USE statistics,                                                            &
@@ -274 +277 @@
  SUBROUTINE data_output_spectra_x( m, cranz, pr, frame_written )
 
+    USE arrays_3d,                                                             &
+        ONLY:  zu, zw
     USE constants,                                                             &
         ONLY:  pi
 
     USE control_parameters,                                                    &
-        ONLY:  averaging_interval_sp
+        ONLY:  averaging_interval_sp, run_description_header, simulated_time_chr
 
     USE grid_variables,                                                        &
@@ -290 +295 @@
     USE pegrid
 
+    USE statistics,                                                            &
+        ONLY:  spectrum_x
+
     USE spectrum,                                                              &
-        ONLY:  comp_spectra_level, n_sp_x, plot_spectra_level
+        ONLY:  comp_spectra_level, header_char, lstyles, klist_x, n_sp_x,      &
+               plot_spectra_level, utext_char, ytext_char
 
     IMPLICIT NONE
@@ -469 +478 @@
  SUBROUTINE data_output_spectra_y( m, cranz, pr, frame_written )
 
+    USE arrays_3d,                                                             &
+        ONLY:  zu, zw
+ 
     USE constants,                                                             &
         ONLY:  pi
 
     USE control_parameters,                                                    &
-        ONLY:  averaging_interval_sp
+        ONLY:  averaging_interval_sp, run_description_header, simulated_time_chr
 
     USE grid_variables,                                                        &
@@ -484 +496 @@
 
     USE pegrid
-
-    USE spectrum  comp_spectra_level, plot_spectra_level
+    
+    USE statistics,                                                             &
+        ONLY:  spectrum_y
+
+    USE spectrum,                                                              &
+        ONLY:  comp_spectra_level, header_char, klist_y, lstyles, n_sp_y,      &
+               plot_spectra_level, utext_char, ytext_char
 
     IMPLICIT NONE