/[MITgcm]/MITgcm/pkg/zonal_filt/FFTPACK.h
ViewVC logotype

Diff of /MITgcm/pkg/zonal_filt/FFTPACK.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by cnh, Sun Feb 4 14:38:50 2001 UTC revision 1.4 by edhill, Thu Oct 9 04:19:20 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "ZONAL_FILT_OPTIONS.h"
5    
6    #ifdef ALLOW_ZONAL_FILT
7    
8  C     Data structures/work-space for FFTPACK  C     Data structures/work-space for FFTPACK
9        COMMON /FFTPACKSUPPORT/ FFTPACKWS1,FFTPACKWS2,FFTPACKWS3        COMMON /FFTPACKSUPPORT/ FFTPACKWS1,FFTPACKWS2,FFTPACKWS3
# Line 9  C     Real*8 FFTPACKWS(2*Nx+15,nSy) Line 11  C     Real*8 FFTPACKWS(2*Nx+15,nSy)
11        Real*8 FFTPACKWS1(Nx,nSy)        Real*8 FFTPACKWS1(Nx,nSy)
12        Real*8 FFTPACKWS2(Nx,nSy)        Real*8 FFTPACKWS2(Nx,nSy)
13        integer FFTPACKWS3(15,nSy)        integer FFTPACKWS3(15,nSy)
14    
15    #endif /* ALLOW_ZONAL_FILT */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22