/[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.3 by jmc, Sat Apr 3 22:32:22 2010 UTC revision 1.4 by gforget, Sun Jun 12 16:08:04 2011 UTC
# Line 153  C---+----1----+----2----+----3----+----4 Line 153  C---+----1----+----2----+----3----+----4
153             CALL PRINT_ERROR( msgBuf , myThid )             CALL PRINT_ERROR( msgBuf , myThid )
154             ndCount = ndCount + 1             ndCount = ndCount + 1
155           ENDIF           ENDIF
156             IF ( diagName.EQ.'SIyneg  ' ) THEN
157               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "',
158         &             diagName, '" was retired in favor of "SIdHbOCN"'
159               CALL PRINT_ERROR( msgBuf , myThid )
160               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',
161         &              '=> need to change "data.diagnostics" accordingly'
162               CALL PRINT_ERROR( msgBuf , myThid )
163               ndCount = ndCount + 1
164             ENDIF
165             IF ( diagName.EQ.'SIfice  ' ) THEN
166               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "',
167         &             diagName, '" was retired in favor of "SIdHbATC"'
168               CALL PRINT_ERROR( msgBuf , myThid )
169               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',
170         &              '=> need to change "data.diagnostics" accordingly'
171               CALL PRINT_ERROR( msgBuf , myThid )
172               ndCount = ndCount + 1
173             ENDIF
174             IF ( diagName.EQ.'SIsnwice' ) THEN
175               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "',
176         &             diagName, '" was retired in favor of "SIdHbFLO"'
177               CALL PRINT_ERROR( msgBuf , myThid )
178               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',
179         &              '=> need to change "data.diagnostics" accordingly'
180               CALL PRINT_ERROR( msgBuf , myThid )
181               ndCount = ndCount + 1
182             ENDIF
183             IF ( diagName.EQ.'SIthdgrh' ) THEN
184               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "',
185         &             diagName, '" was retired in favor of "SIdHb*"'
186               CALL PRINT_ERROR( msgBuf , myThid )
187               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',
188         &              '=> need to change "data.diagnostics" accordingly'
189               CALL PRINT_ERROR( msgBuf , myThid )
190               ndCount = ndCount + 1
191             ENDIF
192            
193  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
194          ENDIF          ENDIF
195          IF ( ndCount.EQ.0 ) RETURN          IF ( ndCount.EQ.0 ) RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22