/[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.4 by jmc, Tue May 12 19:44:59 2009 UTC revision 1.5 by jmc, Tue May 26 19:00:09 2009 UTC
# Line 107  C- West : Line 107  C- West :
107           ENDDO           ENDDO
108    
109           IF ( errN+errS+errW+errE .GE. 1 ) THEN           IF ( errN+errS+errW+errE .GE. 1 ) THEN
110            WRITE(msgBuf,'(A,I6,A,2(I4,A))')            WRITE(msgBuf,'(2A,I6,A,2(I4,A))')
111       &        'EXCH2_CHECK_DEPTHS: tile #', tId,       &        '** WARNINGS ** EXCH2_CHECK_DEPTHS: ',
112       &        ' (bi,bj=', bi, ',', bj, ' ):'       &        'tile #', tId, ' (bi,bj=', bi, ',', bj, ' ):'
113            CALL PRINT_ERROR( msgBuf, myThid )            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
114         &                        SQUEEZE_RIGHT, myThid )
115            IF ( errN.GE.1 ) THEN            IF ( errN.GE.1 ) THEN
116             WRITE(msgBuf,'(A,I5,A)') ' N.Edge has', errN,             WRITE(msgBuf,'(A,I5,A)') ' N.Edge has', errN,
117       &        ' unconnected points with non-zero depth.'       &        ' unconnected points with non-zero depth.'
118             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
119         &                         SQUEEZE_RIGHT, myThid )
120            ENDIF            ENDIF
121            IF ( errS.GE.1 ) THEN            IF ( errS.GE.1 ) THEN
122             WRITE(msgBuf,'(A,I5,A)') ' S.Edge has', errS,             WRITE(msgBuf,'(A,I5,A)') ' S.Edge has', errS,
123       &        ' unconnected points with non-zero depth.'       &        ' unconnected points with non-zero depth.'
124             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
125         &                         SQUEEZE_RIGHT, myThid )
126            ENDIF            ENDIF
127            IF ( errE.GE.1 ) THEN            IF ( errE.GE.1 ) THEN
128             WRITE(msgBuf,'(A,I5,A)') ' E.Edge has', errE,             WRITE(msgBuf,'(A,I5,A)') ' E.Edge has', errE,
129       &        ' unconnected points with non-zero depth.'       &        ' unconnected points with non-zero depth.'
130             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
131         &                         SQUEEZE_RIGHT, myThid )
132            ENDIF            ENDIF
133            IF ( errW.GE.1 ) THEN            IF ( errW.GE.1 ) THEN
134             WRITE(msgBuf,'(A,I5,A)') ' W.Edge has', errW,             WRITE(msgBuf,'(A,I5,A)') ' W.Edge has', errW,
135       &        ' unconnected points with non-zero depth.'       &        ' unconnected points with non-zero depth.'
136             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
137         &                         SQUEEZE_RIGHT, myThid )
138            ENDIF            ENDIF
 c         CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,  
 c    &                        SQUEEZE_RIGHT, myThid )  
           errFlag = .TRUE.  
139            WRITE( msgBuf,'(A)') 'S/R EXCH2_CHECK_DEPTHS: Fatal Error'            WRITE( msgBuf,'(A)') 'S/R EXCH2_CHECK_DEPTHS: Fatal Error'
140              errFlag = .TRUE.
141           ENDIF           ENDIF
142    
143         ENDDO         ENDDO
144        ENDDO        ENDDO
145    
146  #ifdef USE_ERROR_STOP  #ifdef USE_ERROR_STOP
147        CALL STOP_IF_ERROR( errFlag, msgBuf, myThid )  c     CALL STOP_IF_ERROR( errFlag, msgBuf, myThid )
148  #else  /* USE_ERROR_STOP */  #else  /* USE_ERROR_STOP */
149        IF ( errFlag ) STOP 'ABNORMAL END: S/R EXCH2_CHECK_DEPTHS'  c     IF ( errFlag ) STOP 'ABNORMAL END: S/R EXCH2_CHECK_DEPTHS'
150  #endif /* USE_ERROR_STOP */  #endif /* USE_ERROR_STOP */
151          IF ( errFlag ) THEN
152              WRITE( msgBuf,'(2A)') '** WARNINGS ** EXCH2_CHECK_DEPTHS:',
153         &        ' some algorithm implementation might not be'
154              CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
155         &                        SQUEEZE_RIGHT, myThid )
156              WRITE( msgBuf,'(2A)') '** WARNINGS ** EXCH2_CHECK_DEPTHS:',
157         &        ' safe with non-zero depth next to blank-tile'
158              CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
159         &                        SQUEEZE_RIGHT, myThid )
160          ENDIF
161    
162        RETURN        RETURN
163        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22