/[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.4 by gforget, Sun Jun 12 16:08:04 2011 UTC revision 1.5 by jmc, Tue Jun 11 01:34:13 2013 UTC
# Line 35  C     nbFlds(n):: number of diagnostics Line 35  C     nbFlds(n):: number of diagnostics
35  C     fldsList :: list of field names to check  C     fldsList :: list of field names to check
36  C     myThid   :: my Thread Id. number  C     myThid   :: my Thread Id. number
37        INTEGER ld, md, nbLists        INTEGER ld, md, nbLists
38        INTEGER nbFlds(numlists)        INTEGER nbFlds(numLists)
39        CHARACTER*8 fldsList(numperlist,numlists)        CHARACTER*8 fldsList(numperList,numLists)
40        INTEGER myThid        INTEGER myThid
41  C     !OUTPUT PARAMETERS:  C     !OUTPUT PARAMETERS:
42  C     ndCount  :: number of disable diagnostics in list "fldsList"  C     ndCount  :: number of disable diagnostics in list "fldsList"
# Line 189  C---+----1----+----2----+----3----+----4 Line 189  C---+----1----+----2----+----3----+----4
189             CALL PRINT_ERROR( msgBuf , myThid )             CALL PRINT_ERROR( msgBuf , myThid )
190             ndCount = ndCount + 1             ndCount = ndCount + 1
191           ENDIF           ENDIF
192                     IF ( diagName.EQ.'SI_FrcFx' ) THEN
193               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "',
194         &             diagName, '" was retired (identical to "SI_Fract")'
195               CALL PRINT_ERROR( msgBuf , myThid )
196               WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ',
197         &              '=> need to change "data.diagnostics" accordingly'
198               CALL PRINT_ERROR( msgBuf , myThid )
199               ndCount = ndCount + 1
200             ENDIF
201    
202  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
203          ENDIF          ENDIF
204          IF ( ndCount.EQ.0 ) RETURN          IF ( ndCount.EQ.0 ) RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22