/[MITgcm]/MITgcm/pkg/exch2/exch2_check_depths.F
ViewVC logotype

Diff of /MITgcm/pkg/exch2/exch2_check_depths.F

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

revision 1.1 by jmc, Fri Apr 24 01:43:58 2009 UTC revision 1.2 by jmc, Sun Apr 26 00:27:21 2009 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  c#include "PACKAGES_CONFIG.h"  c#include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6  #include "W2_OPTIONS.h"  #include "W2_OPTIONS.h"
 #define DISABLE_ERROR_STOP  
7    
8  CBOP  CBOP
9  C     !ROUTINE: EXCH2_CHECK_DEPTHS  C     !ROUTINE: EXCH2_CHECK_DEPTHS
# Line 137  c    &                        SQUEEZE_RI Line 136  c    &                        SQUEEZE_RI
136         ENDDO         ENDDO
137        ENDDO        ENDDO
138    
139  #ifdef DISABLE_ERROR_STOP  #ifdef USE_ERROR_STOP
       IF ( errFlag ) STOP 'ABNORMAL END: S/R EXCH2_CHECK_DEPTHS'  
 #else  /* DISABLE_ERROR_STOP */  
140        CALL STOP_IF_ERROR( errFlag, msgBuf, myThid )        CALL STOP_IF_ERROR( errFlag, msgBuf, myThid )
141  #endif /* DISABLE_ERROR_STOP */  #else  /* USE_ERROR_STOP */
142          IF ( errFlag ) STOP 'ABNORMAL END: S/R EXCH2_CHECK_DEPTHS'
143    #endif /* USE_ERROR_STOP */
144    
145        RETURN        RETURN
146        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22