Changeset 1120 for palm

Timestamp:

Apr 5, 2013 3:11:35 PM (12 years ago)

Author:

raasch

Message:

bugfixes

File:

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

palm/trunk/SOURCE/calc_spectra.f90

@@ -277 +277 @@
 
              work = ddd(0:nx,j,k)
-             CALL fft_x( work, 'forward' )
+             CALL fft_x_1d( work, 'forward' )
 
              ddd(0,j,k) = dx * work(0)**2
@@ -388 +388 @@
 
              work = ddd(0:ny,i,k)
-             CALL fft_y( work, 'forward' )
+             CALL fft_y_1d( work, 'forward' )
 
              ddd(0,i,k) = dy * work(0)**2