/[MITgcm]/MITgcm/model/src/forward_step.F
ViewVC logotype

Diff of /MITgcm/model/src/forward_step.F

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

revision 1.7 by jmc, Wed Feb 14 22:50:10 2001 UTC revision 1.8 by jmc, Tue Feb 20 15:10:15 2001 UTC
# Line 106  C--   Step forward all tiles, filter and Line 106  C--   Step forward all tiles, filter and
106  #endif  #endif
107    
108  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
109          IF (zonal_filt_lat.LT.90.) THEN
110        CALL ZONAL_FILT_APPLY(        CALL ZONAL_FILT_APPLY(
111       U           gUnm1, gVnm1, gTnm1, gSnm1,       U           gUnm1, gVnm1, gTnm1, gSnm1,
112       I           myThid )       I           myThid )
113          ENDIF
114  #endif  #endif
115    
116  C--   Solve elliptic equation(s).  C--   Solve elliptic equation(s).
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22