Ignore:
Timestamp:
Apr 5, 2013 3:11:35 PM (11 years ago)
Author:
raasch
Message:

bugfixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/calc_spectra.f90

    r1037 r1120  
    277277
    278278             work = ddd(0:nx,j,k)
    279              CALL fft_x( work, 'forward' )
     279             CALL fft_x_1d( work, 'forward' )
    280280
    281281             ddd(0,j,k) = dx * work(0)**2
     
    388388
    389389             work = ddd(0:ny,i,k)
    390              CALL fft_y( work, 'forward' )
     390             CALL fft_y_1d( work, 'forward' )
    391391
    392392             ddd(0,i,k) = dy * work(0)**2
Note: See TracChangeset for help on using the changeset viewer.