/[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.2 by jmc, Sun Feb 6 23:19:02 2005 UTC revision 1.3 by molod, Fri May 13 18:22:53 2005 UTC
# Line 28  C     !USES: Line 28  C     !USES:
28  #include "PARAMS.h"  #include "PARAMS.h"
29  #include "DIAGNOSTICS_SIZE.h"  #include "DIAGNOSTICS_SIZE.h"
30  #include "DIAGNOSTICS.h"  #include "DIAGNOSTICS.h"
31    #ifdef ALLOW_FIZHI
32    #include "chronos.h"
33    #endif
34    
35  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
36  C     myIter     :: current Iteration number  C     myIter     :: current Iteration number
# Line 42  C      j,m,n   :: loop index Line 45  C      j,m,n   :: loop index
45  c     CHARACTER*(MAX_LEN_MBUF) msgBuf  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
46        INTEGER newIter        INTEGER newIter
47        INTEGER j, m, n        INTEGER j, m, n
48          integer realfreq,yymmdd,hhmmss,nsecf2
49    
50        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
51    
# Line 49  C---+----1----+----2----+----3----+----4 Line 53  C---+----1----+----2----+----3----+----4
53    
54        newIter = 1 + myIter        newIter = 1 + myIter
55        DO n = 1,nlists        DO n = 1,nlists
56         IF ( freq(n).LT.0 ) THEN         realfreq = freq(n)
57    #ifdef ALLOW_FIZHI
58          if( useFIZHI) then
59           yymmdd = int(freq(n))
60           realfreq = nsecf2(0,yymmdd,nymd) / deltaTclock
61          endif
62    #endif
63    
64           IF ( realfreq.LT.0 ) THEN
65  C--    Select diagnostics list that uses instantaneous output  C--    Select diagnostics list that uses instantaneous output
66    
67  c       IF ( MOD(newIter,freq(n)).EQ.0 ) THEN  c       IF ( MOD(newIter,realfreq).EQ.0 ) THEN
68          IF ( MOD(myIter,-freq(n)).EQ.INT(-freq(n)/2) ) THEN          IF ( MOD(myIter,-realfreq).EQ.INT(-realfreq/2) ) THEN
69  C--     switch ON diagnostics of output-stream # n  C--     switch ON diagnostics of output-stream # n
70            DO m=1,nActive(n)            DO m=1,nActive(n)
71              j = jdiag(m,n)              j = jdiag(m,n)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22