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

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

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

revision 1.2 by jmc, Wed Dec 15 00:18:39 2004 UTC revision 1.3 by jmc, Thu Dec 16 21:46:36 2004 UTC
# Line 53  C     !LOCAL VARIABLES: Line 53  C     !LOCAL VARIABLES:
53        INTEGER  dUnit, stdUnit        INTEGER  dUnit, stdUnit
54        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
55        CHARACTER*(72) ccHead, ccLine        CHARACTER*(72) ccHead, ccLine
56          CHARACTER*8 blk8c
57        INTEGER  ILNBLNK        INTEGER  ILNBLNK
58        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
59    
# Line 127  C     write a summary of the (long) list Line 128  C     write a summary of the (long) list
128    
129  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
130        ENDIF        ENDIF
131    
132    C--   Check for multiple definition of the same diagnostic name
133          blk8c  = '        '
134          DO n = 2,ndiagt
135           IF ( cdiag(n).NE.blk8c ) THEN
136            DO l = 1,n-1
137             IF ( cdiag(l).EQ.cdiag(n) ) THEN
138                WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SET_LEVELS: ',
139         &       'diag.Name: ',cdiag(n),' registered 2 times :'
140                CALL PRINT_ERROR( msgBuf , myThid )
141                WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ',
142         &       '1rst (l=', l, ' ), title= ',tdiag(l)
143                CALL PRINT_ERROR( msgBuf , myThid )
144                WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ',
145         &       ' 2nd (n=', n, ' ), title= ',tdiag(n)
146                CALL PRINT_ERROR( msgBuf , myThid )
147                STOP 'ABNORMAL END: S/R DIAGNOSTICS_SET_LEVELS'
148             ENDIF
149            ENDDO
150           ENDIF
151          ENDDO
152    
153        _END_MASTER( myThid )        _END_MASTER( myThid )
154    
155        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22