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

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

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

revision 1.4 by heimbach, Tue Apr 10 22:35:27 2001 UTC revision 1.5 by jmc, Tue Dec 11 14:50:14 2001 UTC
# Line 14  C     \================================= Line 14  C     \=================================
14    
15  C     == Global data ==  C     == Global data ==
16  #include "SIZE.h"  #include "SIZE.h"
17    #include "EEPARAMS.h"
18    #include "PARAMS.h"
19    #include "GRID.h"
20  #include "ZONAL_FILT.h"  #include "ZONAL_FILT.h"
21  #include "FFTPACK.h"  #include "FFTPACK.h"
22    
# Line 43  C     == Local data == Line 46  C     == Local data ==
46    
47        DO k=kMin, kMax        DO k=kMin, kMax
48         DO j=jMin, jMax         DO j=jMin, jMax
49            IF ( (gridLoc.EQ.1 .AND.ABS(yC(1,j,bi,bj)).GE.zonal_filt_lat)
50         &   .OR.(gridLoc.EQ.2 .AND.ABS(yG(2,j,bi,bj)).GE.zonal_filt_lat)
51         &   .OR. zonal_filt_mode2dx.EQ.2 ) THEN
52    
53  C     o Copy zonal line of field into local workspace  C     o Copy zonal line of field into local workspace
54          DO i=1,sNx          DO i=1,sNx
# Line 91  C       o Do periodic wrap around by han Line 97  C       o Do periodic wrap around by han
97           field(i,j,k,bi,bj) = phi(i-sNx)           field(i,j,k,bi,bj) = phi(i-sNx)
98          ENDDO          ENDDO
99    
100            ENDIF
101         ENDDO         ENDDO
102        ENDDO        ENDDO
103    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22