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

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

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

revision 1.1 by jmc, Tue Dec 11 14:49:07 2001 UTC revision 1.2 by jmc, Sun Sep 27 23:13:58 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_FILT_APPLY_TS(  CBOP 0
7       U           tFld, sFld,  C     !ROUTINE: ZONAL_FILT_APPLY_TS
8       I           myThid )  
9  C     /==========================================================\  C     !INTERFACE:
10  C     | S/R ZONAL_FILT_APPLY_TS                                  |        SUBROUTINE ZONAL_FILT_APPLY_TS(
11  C     | o Apply FFT filter to a latitude circle.                 |       U                 tFld, sFld,
12  C     \==========================================================/       I                 myThid )
13        IMPLICIT NONE  
14    C     !DESCRIPTION:
15    C     *==========================================================*
16    C     | S/R ZONAL_FILT_APPLY_TS
17    C     | o Apply FFT filter to a latitude circle.
18    C     *==========================================================*
19    
20    C     !USES:
21          IMPLICIT NONE
22  C     == Global data ==  C     == Global data ==
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "PARAMS.h"  #include "PARAMS.h"
26  #include "GRID.h"  #include "GRID.h"
27    
28  C     == Routine arguments ==  C     !INPUT/OUTPUT PARAMETERS:
29    C     myThid  :: my Thread Id number
30        _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
31        _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
32        INTEGER myThid        INTEGER myThid
33    CEOP
34    
35  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
36    
37  C     == Local data ==  C     !LOCAL VARIABLES:
38        INTEGER K,bi,bj        INTEGER bi,bj
39    
40        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
41        DO bi=myBxLo(myThid),myBxHi(myThid)        DO bi=myBxLo(myThid),myBxHi(myThid)
42    
       DO k=1,Nr  
43          IF ( tempStepping ) CALL ZONAL_FILTER(          IF ( tempStepping ) CALL ZONAL_FILTER(
44       &    tFld, hFacC, 1, sNy, k, k, bi, bj, 1, myThid)       U                       tFld( 1-OLx,1-OLy,1,bi,bj),
45         I                       hFacC(1-OLx,1-OLy,1,bi,bj),
46         I                       1, sNy, Nr, bi, bj, 1, myThid )
47          IF ( saltStepping ) CALL ZONAL_FILTER(          IF ( saltStepping ) CALL ZONAL_FILTER(
48       &    sFld, hFacC, 1, sNy, k, k, bi, bj, 1, myThid)       U                       sFld( 1-OLx,1-OLy,1,bi,bj),
49        ENDDO       I                       hFacC(1-OLx,1-OLy,1,bi,bj),
50         I                       1, sNy, Nr, bi, bj, 1, myThid )
51    
52    
53        ENDDO        ENDDO
54        ENDDO        ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22