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

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

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

revision 1.2 by dfer, Thu Oct 30 18:52:53 2008 UTC revision 1.3 by jmc, Sat Apr 3 22:32:22 2010 UTC
# Line 144  C---+----1----+----2----+----3----+----4 Line 144  C---+----1----+----2----+----3----+----4
144             CALL PRINT_ERROR( msgBuf , myThid )             CALL PRINT_ERROR( msgBuf , myThid )
145             ndCount = ndCount + 1             ndCount = ndCount + 1
146           ENDIF           ENDIF
147             IF ( diagName.EQ.'KPPghat ' ) THEN
148               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "',
149         &             diagName, '" was retired in favor of "KPPghatK"'
150               CALL PRINT_ERROR( msgBuf , myThid )
151               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',
152         &              '=> need to change "data.diagnostics" accordingly'
153               CALL PRINT_ERROR( msgBuf , myThid )
154               ndCount = ndCount + 1
155             ENDIF
156  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
157          ENDIF          ENDIF
158          IF ( ndCount.EQ.0 ) RETURN          IF ( ndCount.EQ.0 ) RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22