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

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

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

revision 1.5 by jmc, Tue Feb 5 15:13:01 2008 UTC revision 1.6 by jmc, Wed Jun 15 13:44:43 2011 UTC
# Line 99  C---+----1----+----2----+----3----+----4 Line 99  C---+----1----+----2----+----3----+----4
99          ENDIF          ENDIF
100        ELSE        ELSE
101          WRITE(msgBuf,'(A,I6,1X,2A)')          WRITE(msgBuf,'(A,I6,1X,2A)')
102       &    '- WARNING - SETDIAG: Diagnostic #', ndId, cdiag(ndId),       &    '- NOTE - SETDIAG: Diagnostic #', ndId, cdiag(ndId),
103       &    ' has already been set'       &    ' has already been set'
104          CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid)
         mate = 0  
         RETURN  
105        ENDIF        ENDIF
106    
107  c Check for Counter Diagnostic  C     Check for Counter Diagnostic
108  c ----------------------------  
109        mate = 0        mate = 0
110        IF ( gcode(5:5).EQ.'C') THEN        IF ( gcode(5:5).EQ.'C') THEN
111          mate = hdiag(ndId)          mate = hdiag(ndId)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22