/[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.4 by molod, Fri May 13 18:32:46 2005 UTC revision 1.5 by jmc, Sat May 14 20:45:27 2005 UTC
# Line 8  CBOP 0 Line 8  CBOP 0
8  C     !ROUTINE: DIAGNOSTICS_SWITCH_ONOFF  C     !ROUTINE: DIAGNOSTICS_SWITCH_ONOFF
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF( myIter, myThid )        SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid )
12    
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C-----  C-----
# Line 33  C     !USES: Line 33  C     !USES:
33  #endif  #endif
34    
35  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
36    C     myTime     :: current Time of simulation ( s )
37  C     myIter     :: current Iteration number  C     myIter     :: current Iteration number
38  C     myThid     :: my Thread Id number  C     myThid     :: my Thread Id number
39          INTEGER myTime
40        INTEGER myIter        INTEGER myIter
41        INTEGER myThid        INTEGER myThid
42  CEOP  CEOP
# Line 43  C     !LOCAL VARIABLES: Line 45  C     !LOCAL VARIABLES:
45  C      newIter :: future iteration number  C      newIter :: future iteration number
46  C      j,m,n   :: loop index  C      j,m,n   :: loop index
47  c     CHARACTER*(MAX_LEN_MBUF) msgBuf  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
48        INTEGER newIter  c     INTEGER newIter
49        INTEGER j, m, n        INTEGER j, m, n
50        integer realfreq,yymmdd,hhmmss,nsecf2        LOGICAL time4SnapShot
51          _RL     phiSec, freqSec
52    #ifdef ALLOW_FIZHI
53          integer yymmdd,hhmmss,nsecf2
54    #endif
55    
56          LOGICAL  DIFF_PHASE_MULTIPLE
57          EXTERNAL DIFF_PHASE_MULTIPLE
58    
59        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
60    
61  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
62    
63        newIter = 1 + myIter  c     newIter = 1 + myIter
64        DO n = 1,nlists        DO n = 1,nlists
65         realfreq = freq(n)  
66           IF ( freq(n).LT.0. ) THEN
67    C--    Select diagnostics list that uses instantaneous output
68    
69            freqSec = freq(n)
70            phiSec = phase(n)
71  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
72        if( useFIZHI) then          if( useFIZHI) then
73         yymmdd = int(freq(n))           yymmdd = int(freq(n))
74         hhmmss = int((freq(n) - int(freq(n)))*1.e6)           hhmmss = int((freq(n) - int(freq(n)))*1.e6)
75         realfreq = nsecf2(hhmmss,yymmdd,nymd) / deltaTclock           freqSec = nsecf2(hhmmss,yymmdd,nymd)
76        endif           yymmdd = int(phase(n))
77             hhmmss = int((phase(n) - int(phase(n)))*1.e6)
78             phiSec = nsecf2(hhmmss,yymmdd,nymd)
79            endif
80  #endif  #endif
81    
82         IF ( realfreq.LT.0 ) THEN          time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
83  C--    Select diagnostics list that uses instantaneous output       &                                       myTime, deltaTclock )
84    
85  c       IF ( MOD(newIter,realfreq).EQ.0 ) THEN          IF ( time4SnapShot ) THEN
         IF ( MOD(myIter,-realfreq).EQ.INT(-realfreq/2) ) THEN  
86  C--     switch ON diagnostics of output-stream # n  C--     switch ON diagnostics of output-stream # n
87            DO m=1,nActive(n)            DO m=1,nActive(n)
88              j = jdiag(m,n)              j = jdiag(m,n)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22