/[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.1 by jmc, Sun Nov 19 21:59:56 2006 UTC revision 1.2 by dfer, Thu Oct 30 18:52:53 2008 UTC
# Line 10  C     !ROUTINE: DIAGNOSTICS_LIST_CHECK Line 10  C     !ROUTINE: DIAGNOSTICS_LIST_CHECK
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE DIAGNOSTICS_LIST_CHECK(        SUBROUTINE DIAGNOSTICS_LIST_CHECK(
12       O                       ndCount,       O                       ndCount,
13       I                       ld, md, nbFlds, fldsList, myThid )       I                       ld, md,
14         I                       nbLists, nbFlds, fldsList, myThid )
15    
16  C     !DESCRIPTION:  C     !DESCRIPTION:
17  C     Check a list of fields for disable diagnostics,  C     Check a list of fields for disable diagnostics,
# Line 131  C---+----1----+----2----+----3----+----4 Line 132  C---+----1----+----2----+----3----+----4
132             CALL PRINT_ERROR( msgBuf , myThid )             CALL PRINT_ERROR( msgBuf , myThid )
133             WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',             WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',
134       &              '=> need to change "data.diagnostics" accordingly'       &              '=> need to change "data.diagnostics" accordingly'
135               CALL PRINT_ERROR( msgBuf , myThid )
136               ndCount = ndCount + 1
137             ENDIF
138             IF ( diagName.EQ.'KPPmld  ' ) THEN
139               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "',
140         &             diagName, '" was retired in favor of "MXLDEPTH"'
141               CALL PRINT_ERROR( msgBuf , myThid )
142               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',
143         &              '=> need to change "data.diagnostics" accordingly'
144             CALL PRINT_ERROR( msgBuf , myThid )             CALL PRINT_ERROR( msgBuf , myThid )
145             ndCount = ndCount + 1             ndCount = ndCount + 1
146           ENDIF           ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22