Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |