/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_set_levels.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_set_levels.F

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

revision 1.16 by jmc, Fri Jan 15 00:25:58 2010 UTC revision 1.17 by jmc, Wed Jun 15 13:14:34 2011 UTC
# Line 152  C--   Check for unvalid diag.mate number Line 152  C--   Check for unvalid diag.mate number
152          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
153          ncount = ncount + 1          ncount = ncount + 1
154         ENDIF         ENDIF
155           gcode = gdiag(n)(1:10)
156           IF ( ( gcode(5:5).EQ.'C' .OR. gcode(5:5).EQ.'P' )
157         &                         .AND. hdiag(n).EQ.0 ) THEN
158            WRITE(msgBuf,'(6A)') 'DIAGNOSTICS_SET_LEVELS: ',
159         &    'mate number required for diag."',cdiag(n),
160         &    '" (gdiag(5)=',gcode(5:5),')'
161            CALL PRINT_ERROR( msgBuf , myThid )
162            ncount = ncount + 1
163           ENDIF
164        ENDDO        ENDDO
165        IF ( ncount.GT.0 ) THEN        IF ( ncount.GT.0 ) THEN
166          WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ',          WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ',
167       &    'found', ncount, ' unvalid mate number(s) => STOP'       &    'found', ncount, ' unvalid/missing mate number(s) => STOP'
168          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
169          STOP 'ABNORMAL END: S/R DIAGSTATS_SET_LEVELS'          STOP 'ABNORMAL END: S/R DIAGSTATS_SET_LEVELS'
170        ENDIF        ENDIF
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22