Parent Directory | Revision Log | Revision Graph | Patch
revision 1.48 by jmc, Tue Mar 16 00:14:47 2010 UTC | revision 1.49 by jmc, Mon Jun 6 15:42:58 2011 UTC | |
---|---|---|
# | Line 378 C- Empty diagnostics case : | Line 378 C- Empty diagnostics case : |
378 | ELSE | ELSE |
379 | C- diagnostics is not empty : | C- diagnostics is not empty : |
380 | ||
381 | IF ( debugLevel.GE.debLevA .AND. myThid.EQ.1 ) THEN | IF ( debugLevel.GE.debLevB .AND. myThid.EQ.1 ) THEN |
382 | WRITE(ioUnit,'(A,I6,3A,I8,2A)') | WRITE(ioUnit,'(A,I6,3A,I8,2A)') |
383 | & ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), | & ' Computing Diagnostic # ', ndId, ' ', cdiag(ndId), |
384 | & ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) | & ' Counter:',ndiag(ip,1,1),' Parms: ',gdiag(ndId) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |