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

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

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

revision 1.10 by jmc, Sun Jan 10 04:09:31 2010 UTC revision 1.11 by jmc, Mon Jun 6 15:42:58 2011 UTC
# Line 115  C-          Check for empty Diag (= not Line 115  C-          Check for empty Diag (= not
115               _END_MASTER( myThid )               _END_MASTER( myThid )
116              ENDIF              ENDIF
117    
118              IF ( debugLevel .GE. debLevA ) THEN              IF ( debugLevel .GE. debLevB ) THEN
119               _BEGIN_MASTER( myThid )               _BEGIN_MASTER( myThid )
120                WRITE(ioUnit,'(A,I6,3A,I4,A,1PE10.3,2A)')                WRITE(ioUnit,'(A,I6,3A,I4,A,1PE10.3,2A)')
121       &         ' Compute Stats, Diag. # ',ndId, '  ', cdiag(ndId),       &         ' Compute Stats, Diag. # ',ndId, '  ', cdiag(ndId),
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22