/[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.40 by dfer, Fri Jan 5 01:29:31 2007 UTC revision 1.41 by dfer, Fri Jan 5 20:26:09 2007 UTC
# Line 304  C     Add heat in top-layer Line 304  C     Add heat in top-layer
304         ENDDO         ENDDO
305        ENDIF        ENDIF
306    
307    #ifndef ALLOW_AUTODIFF_TAMC
308        IF (linFSConserveTr) THEN        IF (linFSConserveTr) THEN
309         DO j=1,sNy         DO j=1,sNy
310          DO i=1,sNx          DO i=1,sNx
# Line 314  C     Add heat in top-layer Line 315  C     Add heat in top-layer
315          ENDDO          ENDDO
316         ENDDO         ENDDO
317        ENDIF        ENDIF
318    #endif /* ndfef ALLOW_AUTODIFF_TAMC */
319    
320  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
321        IF ( useShelfIce )        IF ( useShelfIce )
# Line 453  C     Add fresh-water in top-layer Line 455  C     Add fresh-water in top-layer
455         ENDDO         ENDDO
456        ENDIF        ENDIF
457    
458    #ifndef ALLOW_AUTODIFF_TAMC
459        IF (linFSConserveTr) THEN        IF (linFSConserveTr) THEN
460         DO j=1,sNy         DO j=1,sNy
461          DO i=1,sNx          DO i=1,sNx
# Line 463  C     Add fresh-water in top-layer Line 466  C     Add fresh-water in top-layer
466          ENDDO          ENDDO
467         ENDDO         ENDDO
468        ENDIF        ENDIF
469    #endif /* ndfef ALLOW_AUTODIFF_TAMC */
470    
471  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
472        IF ( useShelfIce )        IF ( useShelfIce )
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22