Changeset 146 for palm/trunk/SOURCE/calc_spectra.f90

Timestamp:

Jan 17, 2008 1:08:34 PM (16 years ago)

Author:

raasch

Message:

further updates for turbulent inflow: PE-grid change for restart is working

File:

• palm/trunk/SOURCE/calc_spectra.f90 (modified) (4 diffs)

palm/trunk/SOURCE/calc_spectra.f90

@@ -291 +291 @@
     IF ( myid == 0 )  THEN
 !
-!--    Sum of spectra for later averaging (see routine plot_spectra)
+!--    Sum of spectra for later averaging (see routine data_output_spectra)
 !--    Temperton fft results need to be normalized
        IF ( fft_method == 'temperton-algorithm' )  THEN
@@ -307 +307 @@
 
 !
-!-- n_sp_x is needed by plot_spectra_x
+!-- n_sp_x is needed by data_output_spectra_x
     n_sp_x = n
 
@@ -403 +403 @@
     IF ( myid == 0 )  THEN
 !
-!--    Sum of spectra for later averaging (see routine plot_spectra)
+!--    Sum of spectra for later averaging (see routine data_output_spectra)
 !--    Temperton fft results need to be normalized
        IF ( fft_method == 'temperton-algorithm' )  THEN
@@ -419 +419 @@
 
 !
-!-- n_sp_y is needed by plot_spectra_y
+!-- n_sp_y is needed by data_output_spectra_y
     n_sp_y = n