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

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

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

revision 1.16 by jmc, Tue Feb 5 15:31:19 2008 UTC revision 1.17 by jmc, Mon Jun 6 15:42:58 2011 UTC
# Line 61  c     INTEGER newIter Line 61  c     INTEGER newIter
61    
62  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
63    
64        dBugFlag = debugLevel.GT.debLevB .AND. myThid.EQ.1        dBugFlag = debugLevel.GE.debLevE .AND. myThid.EQ.1
65        dBugUnit = errorMessageUnit        dBugUnit = errorMessageUnit
66    
67  c     newIter = 1 + myIter  c     newIter = 1 + myIter
# Line 150  C---+----1----+----2----+----3----+----4 Line 150  C---+----1----+----2----+----3----+----4
150         IF ( diagSt_freq(n).LT.0. ) THEN         IF ( diagSt_freq(n).LT.0. ) THEN
151  C--    Select diagnostics list that uses instantaneous output  C--    Select diagnostics list that uses instantaneous output
152    
153          dBugFlag = debugLevel.GT.debLevB          dBugFlag = debugLevel.GE.debLevE
154    
155          freqSec = diagSt_freq(n)          freqSec = diagSt_freq(n)
156          phiSec = diagSt_phase(n)          phiSec = diagSt_phase(n)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22