/[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.5 by edhill, Wed Jul 6 14:58:11 2005 UTC revision 1.6 by jmc, Sun Jul 10 00:52:12 2005 UTC
# Line 86  C          ----------------------------- Line 86  C          -----------------------------
86       I                       ndId, mate, iSp, iSm, myThid )       I                       ndId, mate, iSp, iSm, myThid )
87    
88  C-          Check for empty Diag (= not filled or using empty mask)  C-          Check for empty Diag (= not filled or using empty mask)
89              IF ( statGlob(0,0,j).EQ.0. ) THEN              IF ( tmp_Glob(0,0).EQ.0. ) THEN
90               _BEGIN_MASTER( myThid )               _BEGIN_MASTER( myThid )
91               WRITE(msgBuf,'(A,I10,A,I3)')               WRITE(msgBuf,'(A,I10,A,I3)')
92       &        '- WARNING - from DIAGSTATS_OUTPUT at iter=', myIter,       &        '- WARNING - from DIAGSTATS_OUTPUT at iter=', myIter,

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.22