/[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.2 by jmc, Sun Jun 26 16:51:49 2005 UTC revision 1.3 by jmc, Sun Jun 26 18:23:03 2005 UTC
# Line 99  C---+----1----+----2----+----3----+----4 Line 99  C---+----1----+----2----+----3----+----4
99       &    '- WARNING - SETDIAG: Diagnostic #', ndId, cdiag(ndId),       &    '- WARNING - SETDIAG: Diagnostic #', ndId, cdiag(ndId),
100       &    ' has already been set'       &    ' has already been set'
101          CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid)
102            mate = 0
103          RETURN          RETURN
104        ENDIF        ENDIF
105    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22