/[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.4 by jmc, Fri May 20 07:28:49 2005 UTC revision 1.5 by jmc, Sun Jun 26 16:51:49 2005 UTC
# Line 105  C-    File names: Line 105  C-    File names:
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:  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.
       DO n = 2,nlists  
        DO m = 1,n-1  
         IF ( freq(m).NE.freq(n) .OR. phase(m).NE.phase(n) ) THEN  
 C--     once the SWITCH_ONOFF is changed to only turns ON diag with <0 freq  
 C                 and CLRDIAG is changed to turns OFF diag with <0 freq,  
 C       then we can allow 1 diag to be used with 2 differents <0 freq.  
 C       and this would become:  
 c       IF (  ( freq(m).GT.0. .OR. freq(n).GT.0. )  
 c    &   .AND.( freq(m).NE.freq(n) .OR. phase(m).NE.phase(n) )  
 c    &     ) THEN  
          DO k = 1,nActive(n)  
           DO l = 1,nActive(m)  
            IF ( flds(k,n).EQ.flds(l,m) ) THEN  
             WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_CHECK: ',  
      &       'field : ',flds(k,n),' use 2 different freq. :'  
             CALL PRINT_ERROR( msgBuf , myThid )  
             WRITE(msgBuf,'(2A,I3,A,2F17.6,2A)') 'DIAGNOSTICS_CHECK: ',  
      &       '1rst (m=', m, ' ) freq,phase=', freq(m),phase(m),  
      &       ' file:',fnames(m)  
             CALL PRINT_ERROR( msgBuf , myThid )  
             WRITE(msgBuf,'(2A,I3,A,2F17.6,2A)') 'DIAGNOSTICS_CHECK: ',  
      &       ' 2nd (n=', n, ' ) freq,phase=', freq(n),phase(n),  
      &       ' file:',fnames(n)  
             CALL PRINT_ERROR( msgBuf , myThid )  
             STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'  
            ENDIF  
           ENDDO  
          ENDDO  
         ENDIF  
        ENDDO  
       ENDDO  
   
       DO n = 2,diagSt_nbLists  
        DO m = 1,n-1  
         IF    ( diagSt_freq(m) .NE. diagSt_freq(n) .OR.  
      &          diagSt_phase(m).NE.diagSt_phase(n) ) THEN  
 c       IF (  ( diagSt_freq(m).GT.0. .OR. diagSt_freq(n).GT.0. )  
 c    &   .AND.( diagSt_freq(m) .NE. diagSt_freq(n) .OR.  
 c    &          diagSt_phase(m).NE.diagSt_phase(n) )  
 c    &     ) THEN  
          DO k = 1,diagSt_nbActv(n)  
           DO l = 1,diagSt_nbActv(m)  
            IF ( diagSt_Flds(k,n).EQ.diagSt_Flds(l,m) ) THEN  
             WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_CHECK: ',  
      &       'field : ',diagSt_Flds(k,n),' use 2 different stat_freq.:'  
             CALL PRINT_ERROR( msgBuf , myThid )  
             WRITE(msgBuf,'(2A,I3,A,2F17.6,2A)') 'DIAGNOSTICS_CHECK: ',  
      &       '1rst (m=', m, ' ) freq,phase=', diagSt_freq(m),  
      &       diagSt_phase(m), ' file:', diagSt_Fname(m)  
             CALL PRINT_ERROR( msgBuf , myThid )  
             WRITE(msgBuf,'(2A,I3,A,2F17.6,2A)') 'DIAGNOSTICS_CHECK: ',  
      &       ' 2nd (n=', n, ' ) freq,phase=', diagSt_freq(n),  
      &       diagSt_phase(n), ' file:', diagSt_Fname(n)  
             CALL PRINT_ERROR( msgBuf , myThid )  
             STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'  
            ENDIF  
           ENDDO  
          ENDDO  
         ENDIF  
        ENDDO  
       ENDDO  
109    
110  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
111    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22