/[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.45 by dimitri, Mon Jul 23 21:18:13 2007 UTC revision 1.46 by heimbach, Tue Aug 14 20:58:24 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  cph#ifndef ALLOW_AUTODIFF_TAMC
308    cph I didnt put this ifndef here.
309        IF (linFSConserveTr) THEN        IF (linFSConserveTr) THEN
310         DO j=1,sNy         DO j=1,sNy
311          DO i=1,sNx          DO i=1,sNx
# Line 315  C     Add heat in top-layer Line 316  C     Add heat in top-layer
316          ENDDO          ENDDO
317         ENDDO         ENDDO
318        ENDIF        ENDIF
319  #endif /* ndfef ALLOW_AUTODIFF_TAMC */  cph#endif /* ndfef ALLOW_AUTODIFF_TAMC */
320    
321  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
322        IF ( useShelfIce )        IF ( useShelfIce )
# Line 463  C     Add fresh-water in top-layer Line 464  C     Add fresh-water in top-layer
464         ENDDO         ENDDO
465        ENDIF        ENDIF
466    
467  #ifndef ALLOW_AUTODIFF_TAMC  cph#ifndef ALLOW_AUTODIFF_TAMC
468    cph I didnt put this ifndef here.
469        IF (linFSConserveTr) THEN        IF (linFSConserveTr) THEN
470         DO j=1,sNy         DO j=1,sNy
471          DO i=1,sNx          DO i=1,sNx
# Line 474  C     Add fresh-water in top-layer Line 476  C     Add fresh-water in top-layer
476          ENDDO          ENDDO
477         ENDDO         ENDDO
478        ENDIF        ENDIF
479  #endif /* ndfef ALLOW_AUTODIFF_TAMC */  cph#endif /* ndfef ALLOW_AUTODIFF_TAMC */
480    
481  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
482        IF ( useShelfIce )        IF ( useShelfIce )
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22