/[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.1 by jmc, Mon Dec 13 21:43:54 2004 UTC revision 1.2 by jmc, Thu Dec 16 21:39:53 2004 UTC
# Line 70  C-    Check for field that appears 2 tim Line 70  C-    Check for field that appears 2 tim
70              WRITE(msgBuf,'(2A,I3,A,I6,2A)') 'DIAGNOSTICS_CHECK: ',              WRITE(msgBuf,'(2A,I3,A,I6,2A)') 'DIAGNOSTICS_CHECK: ',
71       &       ' 2nd (n=', n, ' ), freq=', freq(n),' file:',fnames(n)       &       ' 2nd (n=', n, ' ), freq=', freq(n),' file:',fnames(n)
72              CALL PRINT_ERROR( msgBuf , myThid )              CALL PRINT_ERROR( msgBuf , myThid )
73                STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
74             ENDIF             ENDIF
75            ENDDO            ENDDO
76           ENDDO           ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22