/[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.4 by molod, Fri May 13 18:32:46 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           hhmmss = int((freq(n) - int(freq(n)))*1.e6)
61           realfreq = nsecf2(hhmmss,yymmdd,nymd) / deltaTclock
62          endif
63    #endif
64    
65           IF ( realfreq.LT.0 ) THEN
66  C--    Select diagnostics list that uses instantaneous output  C--    Select diagnostics list that uses instantaneous output
67    
68          IF ( MOD(newIter,freq(n)).EQ.0 ) THEN  c       IF ( MOD(newIter,realfreq).EQ.0 ) THEN
69            IF ( MOD(myIter,-realfreq).EQ.INT(-realfreq/2) ) THEN
70  C--     switch ON diagnostics of output-stream # n  C--     switch ON diagnostics of output-stream # n
71            DO m=1,nActive(n)            DO m=1,nActive(n)
72              j = jdiag(m,n)              j = jdiag(m,n)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22