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

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

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

revision 1.1 by jmc, Fri May 20 07:28:50 2005 UTC revision 1.2 by jmc, Mon May 23 01:58:27 2005 UTC
# Line 62  C---+----1----+----2----+----3----+----4 Line 62  C---+----1----+----2----+----3----+----4
62         DO j=0,nRegions         DO j=0,nRegions
63          IF ( diagSt_region(j,listId).GE.1 ) THEN          IF ( diagSt_region(j,listId).GE.1 ) THEN
64           WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId),           WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId),
65       &     ' ; Iter =', myIter,' ; region #', j, ' ; nb.Lev =', klev         &    ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId)
66  c        WRITE(nUnit,'(5A)')       ' k |',  c        WRITE(nUnit,'(5A)')       ' k |',
67  c    &             ' --   Average  --  |', ' --   Std.Dev   -- |',  c    &             ' --   Average  --  |', ' --   Std.Dev   -- |',
68  c    &             ' --      min   --  |', ' --      max    -- |'  c    &             ' --      min   --  |', ' --      max    -- |'
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22