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

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

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

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