/[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.17 by jmc, Mon Jun 6 15:42:58 2011 UTC revision 1.18 by jmc, Thu Jun 7 17:13:32 2012 UTC
# Line 52  c     INTEGER newIter Line 52  c     INTEGER newIter
52        LOGICAL dBugFlag        LOGICAL dBugFlag
53        INTEGER dBugUnit        INTEGER dBugUnit
54  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
55        LOGICAL alarm2, alarm2next        LOGICAL  ALARM2NEXT
56          EXTERNAL ALARM2NEXT
57        CHARACTER *9 tagname        CHARACTER *9 tagname
58  #endif  #endif
59    
# Line 73  C--    Select diagnostics list that uses Line 74  C--    Select diagnostics list that uses
74          freqSec = freq(n)          freqSec = freq(n)
75          phiSec = phase(n)          phiSec = phase(n)
76          time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,          time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
77       &                                       myTime, deltaTclock )       &                                       myTime, deltaTClock )
78  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
79          IF ( useFIZHI ) THEN          IF ( useFIZHI ) THEN
80           WRITE(tagname,'(A,I2.2)')'diagtag',n           WRITE(tagname,'(A,I2.2)')'diagtag',n
81           time4SnapShot = alarm2next(tagname,deltaT)           time4SnapShot = ALARM2NEXT(tagname,deltaT)
82          ENDIF          ENDIF
83  #endif  #endif
84    #ifdef ALLOW_CAL
85            IF ( useCAL ) THEN
86              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
87         U                        time4SnapShot,
88         I                        myTime, myIter, myThid )
89            ENDIF
90    #endif /* ALLOW_CAL */
91    
92          DO bj=myByLo(myThid), myByHi(myThid)          DO bj=myByLo(myThid), myByHi(myThid)
93           DO bi=myBxLo(myThid), myBxHi(myThid)           DO bi=myBxLo(myThid), myBxHi(myThid)
# Line 108  C--    list with instantaneous output: e Line 116  C--    list with instantaneous output: e
116    
117         IF ( averageCycle(n).GT.1 ) THEN         IF ( averageCycle(n).GT.1 ) THEN
118  C--    Select diagnostics list that uses periodic averaging  C--    Select diagnostics list that uses periodic averaging
119          xInterval = myTime + deltaTclock*0.5 _d 0 - averagePhase(n)          xInterval = myTime + deltaTClock*0.5 _d 0 - averagePhase(n)
120          xInterval = xInterval / averageFreq(n)          xInterval = xInterval / averageFreq(n)
121          IF ( xInterval.GE.0. ) THEN          IF ( xInterval.GE.0. ) THEN
122            nInterval = INT(xInterval)            nInterval = INT(xInterval)
# Line 155  C--    Select diagnostics list that uses Line 163  C--    Select diagnostics list that uses
163          freqSec = diagSt_freq(n)          freqSec = diagSt_freq(n)
164          phiSec = diagSt_phase(n)          phiSec = diagSt_phase(n)
165          time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,          time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
166       &                                       myTime, deltaTclock )       &                                       myTime, deltaTClock )
167    
168  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
169          IF ( useFIZHI ) THEN          IF ( useFIZHI ) THEN
170           WRITE(tagname,'(A,I2.2)')'diagStg',n           WRITE(tagname,'(A,I2.2)')'diagStg',n
171           time4SnapShot = alarm2next(tagname,deltaT)           time4SnapShot = ALARM2NEXT(tagname,deltaT)
172          ENDIF          ENDIF
173  #endif  #endif
174    #ifdef ALLOW_CAL
175            IF ( useCAL ) THEN
176              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
177         U                        time4SnapShot,
178         I                        myTime, myIter, myThid )
179            ENDIF
180    #endif /* ALLOW_CAL */
181    
182          DO bj=myByLo(myThid), myByHi(myThid)          DO bj=myByLo(myThid), myByHi(myThid)
183           DO bi=myBxLo(myThid), myBxHi(myThid)           DO bi=myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22