/[MITgcm]/MITgcm/pkg/autodiff/autodiff_store.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/autodiff_store.F

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

revision 1.3 by heimbach, Wed Sep 26 04:12:40 2007 UTC revision 1.4 by heimbach, Fri Mar 28 03:36:03 2008 UTC
# Line 75  c     == local variables == Line 75  c     == local variables ==
75                
76  c--   == end of interface ==  c--   == end of interface ==
77    
78  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
79        IF ( debugLevel .GE. debLevB )        IF ( debugLevel .GE. debLevB )
80       &    CALL DEBUG_ENTER('AUTODIFF_STORE',myThid)       &    CALL DEBUG_ENTER('AUTODIFF_STORE',myThid)
81  #endif  #endif
# Line 581  C-      2D arrays Line 581  C-      2D arrays
581        enddo        enddo
582  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
583    
584  #ifndef DISABLE_DEBUGMODE  #ifndef ALLOW_DEBUG
585        IF ( debugLevel .GE. debLevB )        IF ( debugLevel .GE. debLevB )
586       &    CALL DEBUG_LEAVE('AUTODIFF_STORE',myThid)       &    CALL DEBUG_LEAVE('AUTODIFF_STORE',myThid)
587  #endif  #endif
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22