/[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.5 by jmc, Tue Dec 11 14:50:14 2001 UTC revision 1.6 by jmc, Wed Sep 2 19:22:07 2009 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "ZONAL_FILT_OPTIONS.h"  #include "ZONAL_FILT_OPTIONS.h"
5    
6        SUBROUTINE ZONAL_FILTER(        SUBROUTINE ZONAL_FILTER(
7       U           field, fieldMask,       U           field,
8         I           fieldMask,
9       I           jMin, jMax, kMin, kMax, bi, bj, gridLoc, myThid )       I           jMin, jMax, kMin, kMax, bi, bj, gridLoc, myThid )
10  C     /==========================================================\  
11  C     | S/R ZONAL_FILTER                                         |  C     *==========================================================*
12  C     | o Apply FFT filter to a latitude circle.                 |  C     | S/R ZONAL_FILTER
13  C     \==========================================================/  C     | o Apply FFT filter to a latitude circle.
14    C     *==========================================================*
15    
16        IMPLICIT NONE        IMPLICIT NONE
17    
18  C     == Global data ==  C     == Global data ==
# Line 30  C     bj Line 33  C     bj
33  C     myThid  - Thread number of this instance of FILTER_LATCIRC_FFT_APPLY  C     myThid  - Thread number of this instance of FILTER_LATCIRC_FFT_APPLY
34  C     field   - Field to filter  C     field   - Field to filter
35  C     gridLoc - Orientation (U or V) of field.  C     gridLoc - Orientation (U or V) of field.
36        INTEGER myThid        _RL     field    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
37        INTEGER gridLoc        _RS     fieldMask(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
       Real*8 field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       Real*8 fieldMask(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)  
38        INTEGER jMin, jMax, kMin, kMax, bi, bj        INTEGER jMin, jMax, kMin, kMax, bi, bj
39          INTEGER gridLoc
40          INTEGER myThid
41    
42  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
43    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22