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

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

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

revision 1.6 by jmc, Tue Feb 5 15:31:19 2008 UTC revision 1.7 by jmc, Mon Jun 6 15:42:58 2011 UTC
# Line 47  C     !LOCAL VARIABLES: Line 47  C     !LOCAL VARIABLES:
47    
48  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
49    
50        IF ( debugLevel.GE.debLevA ) THEN        IF ( debugLevel.GE.debLevB ) THEN
51         IF ( myIter.EQ.nIter0 ) THEN         IF ( myIter.EQ.nIter0 ) THEN
52          outpSummary = .TRUE.          outpSummary = .TRUE.
53          dUnit = standardMessageUnit          dUnit = standardMessageUnit
# Line 70  C---+----1----+----2----+----3----+----4 Line 70  C---+----1----+----2----+----3----+----4
70         outpSummary = .FALSE.         outpSummary = .FALSE.
71        ENDIF        ENDIF
72    
73        IF ( outpSummary .AND. debugLevel.GE.debLevA ) THEN        IF ( outpSummary .AND. debugLevel.GE.debLevB ) THEN
74  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
75  C     write a summary diagnostics state:  C     write a summary diagnostics state:
76    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22