/[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.22 by jmc, Thu Dec 11 21:23:00 2003 UTC revision 1.23 by molod, Mon Dec 15 23:00:44 2003 UTC
# Line 66  C--   Forcing term Line 66  C--   Forcing term
66       &                      iMin,iMax, jMin,jMax, bi,bj, kLev,       &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
67       &                      myCurrentTime, myThid )       &                      myCurrentTime, myThid )
68  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
69    C AMM
70    #ifdef ALLOW_FIZHI
71          IF ( useFIZHI ) CALL FIZHI_TENDENCY_APPLY_U(
72         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
73         &                      myCurrentTime, myThid )
74    #endif /* ALLOW_FIZHI */
75    C AMM
76    
77  C     Add windstress momentum impulse into the top-layer  C     Add windstress momentum impulse into the top-layer
78        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
# Line 148  C--   Forcing term Line 155  C--   Forcing term
155       &                      myCurrentTime, myThid )       &                      myCurrentTime, myThid )
156  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
157    
158    C AMM
159    #ifdef ALLOW_FIZHI
160          IF ( useFIZHI ) CALL FIZHI_TENDENCY_APPLY_V(
161         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
162         &                      myCurrentTime, myThid )
163    #endif /* ALLOW_FIZHI */
164    C AMM
165  C     Add windstress momentum impulse into the top-layer  C     Add windstress momentum impulse into the top-layer
166        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
167         DO j=jMin,jMax         DO j=jMin,jMax
# Line 236  C--   Forcing term Line 250  C--   Forcing term
250       &                      myCurrentTime, myThid )       &                      myCurrentTime, myThid )
251  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
252    
253    C AMM
254    #ifdef ALLOW_FIZHI
255          IF ( useFIZHI ) CALL FIZHI_TENDENCY_APPLY_T(
256         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
257         &                      myCurrentTime, myThid )
258    #endif /* ALLOW_FIZHI */
259    C AMM
260  C     Add heat in top-layer  C     Add heat in top-layer
261        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
262         DO j=jMin,jMax         DO j=jMin,jMax
# Line 335  C--   Forcing term Line 356  C--   Forcing term
356       &                      myCurrentTime, myThid )       &                      myCurrentTime, myThid )
357  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
358    
359    C AMM
360    #ifdef ALLOW_FIZHI
361          IF ( useFIZHI ) CALL FIZHI_TENDENCY_APPLY_S(
362         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
363         &                      myCurrentTime, myThid )
364    #endif /* ALLOW_FIZHI */
365    C AMM
366  C     Add fresh-water in top-layer  C     Add fresh-water in top-layer
367        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
368         DO j=jMin,jMax         DO j=jMin,jMax
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22