/[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.1 by jmc, Mon Dec 20 01:53:53 2004 UTC revision 1.2 by jmc, Sun Feb 6 23:19:02 2005 UTC
# Line 52  C---+----1----+----2----+----3----+----4 Line 52  C---+----1----+----2----+----3----+----4
52         IF ( freq(n).LT.0 ) THEN         IF ( freq(n).LT.0 ) THEN
53  C--    Select diagnostics list that uses instantaneous output  C--    Select diagnostics list that uses instantaneous output
54    
55          IF ( MOD(newIter,freq(n)).EQ.0 ) THEN  c       IF ( MOD(newIter,freq(n)).EQ.0 ) THEN
56            IF ( MOD(myIter,-freq(n)).EQ.INT(-freq(n)/2) ) THEN
57  C--     switch ON diagnostics of output-stream # n  C--     switch ON diagnostics of output-stream # n
58            DO m=1,nActive(n)            DO m=1,nActive(n)
59              j = jdiag(m,n)              j = jdiag(m,n)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22