/[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.24 by jmc, Thu Apr 8 04:04:24 2004 UTC revision 1.25 by heimbach, Fri May 14 21:08:28 2004 UTC
# Line 258  C AMM Line 258  C AMM
258       &                      myCurrentTime, myThid )       &                      myCurrentTime, myThid )
259  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
260  C AMM  C AMM
261    
262  C     Add heat in top-layer  C     Add heat in top-layer
263        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
264         DO j=jMin,jMax         DO j=jMin,jMax
# Line 370  C AMM Line 371  C AMM
371       &                      myCurrentTime, myThid )       &                      myCurrentTime, myThid )
372  #endif /* ALLOW_FIZHI */  #endif /* ALLOW_FIZHI */
373  C AMM  C AMM
374    
375  C     Add fresh-water in top-layer  C     Add fresh-water in top-layer
376        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
377         DO j=jMin,jMax         DO j=jMin,jMax
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22