/[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.38 by heimbach, Wed Jun 7 01:55:12 2006 UTC revision 1.39 by heimbach, Wed Jun 28 21:24:54 2006 UTC
# Line 71  C--   Forcing term Line 71  C--   Forcing term
71       &                      myTime, myThid )       &                      myTime, myThid )
72  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
73    
74    #ifdef ALLOW_MYPACKAGE
75          IF ( useMYPACKAGE ) CALL MYPACKAGE_TENDENCY_APPLY_U(
76         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
77         &                      myTime, myThid )
78    #endif /* ALLOW_MYPACKAGE */
79    
80  C     Add windstress momentum impulse into the top-layer  C     Add windstress momentum impulse into the top-layer
81        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
82  c      DO j=1,sNy  c      DO j=1,sNy
# Line 169  C--   Forcing term Line 175  C--   Forcing term
175       &                      myTime, myThid )       &                      myTime, myThid )
176  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
177    
178    #ifdef ALLOW_MYPACKAGE
179          IF ( useMYPACKAGE ) CALL MYPACKAGE_TENDENCY_APPLY_V(
180         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
181         &                      myTime, myThid )
182    #endif /* ALLOW_MYPACKAGE */
183    
184  C     Add windstress momentum impulse into the top-layer  C     Add windstress momentum impulse into the top-layer
185        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
186         DO j=1,sNy+1         DO j=1,sNy+1
# Line 274  C--   Forcing term Line 286  C--   Forcing term
286       &                      myTime, myThid )       &                      myTime, myThid )
287  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
288    
289    #ifdef ALLOW_MYPACKAGE
290          IF ( useMYPACKAGE ) CALL MYPACKAGE_TENDENCY_APPLY_T(
291         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
292         &                      myTime, myThid )
293    #endif /* ALLOW_MYPACKAGE */
294    
295  C     Add heat in top-layer  C     Add heat in top-layer
296        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
297         DO j=1,sNy         DO j=1,sNy
# Line 405  C--   Forcing term Line 423  C--   Forcing term
423       &                      myTime, myThid )       &                      myTime, myThid )
424  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
425    
426    #ifdef ALLOW_MYPACKAGE
427          IF ( useMYPACKAGE ) CALL MYPACKAGE_TENDENCY_APPLY_S(
428         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
429         &                      myTime, myThid )
430    #endif /* ALLOW_MYPACKAGE */
431    
432  C     Add fresh-water in top-layer  C     Add fresh-water in top-layer
433        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
434         DO j=1,sNy         DO j=1,sNy
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22