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

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

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

revision 1.3 by jmc, Wed Feb 23 14:45:00 2005 UTC revision 1.5 by jmc, Sun Jun 26 16:51:49 2005 UTC
# Line 86  C-    File names: Line 86  C-    File names:
86         ENDDO         ENDDO
87        ENDDO        ENDDO
88    
89  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|        DO n = 2,diagSt_nbLists
 C-    Check for field that appears 2 times (or more) with differents frequency:  
   
       DO n = 2,nlists  
90         DO m = 1,n-1         DO m = 1,n-1
91          IF ( freq(m).NE.freq(n) ) THEN          IF ( diagSt_Fname(n).EQ.diagSt_Fname(m) ) THEN
92           DO k = 1,nActive(n)           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',
93            DO l = 1,nActive(m)       &            'found 2 identical stat_fname:'
94             IF ( flds(k,n).EQ.flds(l,m) ) THEN           CALL PRINT_ERROR( msgBuf , myThid )
95              WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',
96       &       'field : ',flds(k,n),' use 2 different freq. :'       &    '1rst (m=', m, ' ): ', diagSt_Fname(m)
97              CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
98              WRITE(msgBuf,'(2A,I3,A,I6,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',
99       &       '1rst (m=', m, ' ), freq=', freq(m),' file:',fnames(m)       &    ' 2nd (n=', n, ' ): ', diagSt_Fname(n)
100              CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
101              WRITE(msgBuf,'(2A,I3,A,I6,2A)') 'DIAGNOSTICS_CHECK: ',           STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
      &       ' 2nd (n=', n, ' ), freq=', freq(n),' file:',fnames(n)  
             CALL PRINT_ERROR( msgBuf , myThid )  
             STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'  
            ENDIF  
           ENDDO  
          ENDDO  
102          ENDIF          ENDIF
103         ENDDO         ENDDO
104        ENDDO        ENDDO
105    
106  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
107    C-    Check for field that appears 2 times (or more) with differents frequency:
108    C     disable this checking since now diagnostics pkg can handle this case.
109    
110    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
111    
112        _END_MASTER(myThid)        _END_MASTER(myThid)
113    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22