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

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

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

revision 1.28 by jmc, Tue Oct 19 02:39:58 2004 UTC revision 1.29 by heimbach, Mon Feb 28 17:37:31 2005 UTC
# Line 85  C     Add windstress momentum impulse in Line 85  C     Add windstress momentum impulse in
85         ENDDO         ENDDO
86        ENDIF        ENDIF
87    
88    #if (defined (ALLOW_TAU_EDDY) || defined (ALLOW_GMREDI))
89           CALL TAUEDDY_EXTERNAL_FORCING_U(
90         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
91         I           myCurrentTime,myThid)
92    #endif
93    
94  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
95        IF (useOBCS) THEN        IF (useOBCS) THEN
96         CALL OBCS_SPONGE_U(         CALL OBCS_SPONGE_U(
# Line 173  C     Add windstress momentum impulse in Line 179  C     Add windstress momentum impulse in
179         ENDDO         ENDDO
180        ENDIF        ENDIF
181    
182    #if (defined (ALLOW_TAU_EDDY) || defined (ALLOW_GMREDI))
183           CALL TAUEDDY_EXTERNAL_FORCING_V(
184         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
185         I           myCurrentTime,myThid)
186    #endif
187    
188  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))  #if (defined (ALLOW_OBCS) && defined (ALLOW_OBCS_SPONGE))
189        IF (useOBCS) THEN        IF (useOBCS) THEN
190         CALL OBCS_SPONGE_V(         CALL OBCS_SPONGE_V(
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22