/[MITgcm]/MITgcm_contrib/plumes/external_forcing.F
ViewVC logotype

Diff of /MITgcm_contrib/plumes/external_forcing.F

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

revision 1.1 by molod, Thu May 13 22:21:45 2004 UTC revision 1.2 by molod, Tue May 25 18:11:58 2004 UTC
# Line 74  C AMM Line 74  C AMM
74  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
75  C AMM  C AMM
76    
77    C AMM
78          CALL PLUME_TENDENCY_APPLY_U(
79         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
80         &                      myCurrentTime, myThid )
81    C AMM
82    
83  C     Add windstress momentum impulse into the top-layer  C     Add windstress momentum impulse into the top-layer
84        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
85         DO j=jMin,jMax         DO j=jMin,jMax
# Line 162  C AMM Line 168  C AMM
168       &                      myCurrentTime, myThid )       &                      myCurrentTime, myThid )
169  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
170  C AMM  C AMM
171    
172    C AMM
173          CALL PLUME_TENDENCY_APPLY_V(
174         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
175         &                      myCurrentTime, myThid )
176    C AMM
177    
178  C     Add windstress momentum impulse into the top-layer  C     Add windstress momentum impulse into the top-layer
179        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
180         DO j=jMin,jMax         DO j=jMin,jMax
# Line 258  C AMM Line 271  C AMM
271       &                      myCurrentTime, myThid )       &                      myCurrentTime, myThid )
272  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
273  C AMM  C AMM
274    
275    C AMM
276          CALL PLUME_TENDENCY_APPLY_T(
277         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
278         &                      myCurrentTime, myThid )
279    C AMM
280    
281  C     Add heat in top-layer  C     Add heat in top-layer
282        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
283         DO j=jMin,jMax         DO j=jMin,jMax
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22