/[MITgcm]/MITgcm/pkg/zonal_filt/zonal_filt_init.F
ViewVC logotype

Diff of /MITgcm/pkg/zonal_filt/zonal_filt_init.F

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:51 2001 UTC revision 1.4 by cnh, Mon Jun 18 17:39:59 2001 UTC
# Line 55  C     nWv   - No. of waves that fit on g Line 55  C     nWv   - No. of waves that fit on g
55       &      /(sin( PI*float(I)/float(Nx) ) )**zonal_filt_sinpow       &      /(sin( PI*float(I)/float(Nx) ) )**zonal_filt_sinpow
56       &   )       &   )
57    
58          _BEGIN_MASTER(myThid)
59  C     o Initialise specific library FFT package  C     o Initialise specific library FFT package
60        DO bj=1,nSy        DO bj=1,nSy
61  C      CALL R8FFTI( Nx, FFTPACKWS(1,bj) )  C      CALL R8FFTI( Nx, FFTPACKWS(1,bj) )
# Line 85  Cajatest Line 86  Cajatest
86          ENDDO          ENDDO
87         ENDDO         ENDDO
88        ENDDO        ENDDO
89          _END_MASTER(myThid)
90          CALL BAR2(myThid)
91    
92        CALL WRITE_REC_XY_RL( 'ampFactor', ampFactor, 1, 0, myThid )        CALL WRITE_REC_XY_RL( 'ampFactor', ampFactor, 1, 0, myThid )
93    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22