/[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.29 by heimbach, Mon Feb 28 17:37:31 2005 UTC revision 1.30 by heimbach, Tue Mar 1 18:55:13 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))  #if (defined (ALLOW_TAU_EDDY))
89         CALL TAUEDDY_EXTERNAL_FORCING_U(         CALL TAUEDDY_EXTERNAL_FORCING_U(
90       I           iMin, iMax, jMin, jMax,bi,bj,kLev,       I           iMin, iMax, jMin, jMax,bi,bj,kLev,
91       I           myCurrentTime,myThid)       I           myCurrentTime,myThid)
# Line 179  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))  #if (defined (ALLOW_TAU_EDDY))
183         CALL TAUEDDY_EXTERNAL_FORCING_V(         CALL TAUEDDY_EXTERNAL_FORCING_V(
184       I           iMin, iMax, jMin, jMax,bi,bj,kLev,       I           iMin, iMax, jMin, jMax,bi,bj,kLev,
185       I           myCurrentTime,myThid)       I           myCurrentTime,myThid)
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22