/[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.9 by jmc, Fri May 20 07:28:50 2005 UTC revision 1.11 by molod, Mon May 23 19:31:09 2005 UTC
# Line 49  c     INTEGER newIter Line 49  c     INTEGER newIter
49        _RL     phiSec, freqSec        _RL     phiSec, freqSec
50        LOGICAL dBugFlag        LOGICAL dBugFlag
51  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
52        logical alarm2        logical alarm2,alarm2next
53        character *9 tagname        character *9 tagname
54  #endif  #endif
55    
# Line 73  C--    Select diagnostics list that uses Line 73  C--    Select diagnostics list that uses
73  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
74          if( useFIZHI) then          if( useFIZHI) then
75           write(tagname,'(A,I2.2)')'diagtag',n           write(tagname,'(A,I2.2)')'diagtag',n
76           time4SnapShot = alarm2(tagname)           time4SnapShot = alarm2next(tagname,deltaT)
77          endif          endif
78  #endif  #endif
79    
# Line 115  C--    Select diagnostics list that uses Line 115  C--    Select diagnostics list that uses
115          time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,          time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
116       &                                       myTime, deltaTclock )       &                                       myTime, deltaTclock )
117    
118    #ifdef ALLOW_FIZHI
119            if( useFIZHI) then
120             write(tagname,'(A,I2.2)')'diagStg',n
121             time4SnapShot = alarm2(tagname)
122            endif
123    #endif
124    
125          DO bj=myByLo(myThid), myByHi(myThid)          DO bj=myByLo(myThid), myByHi(myThid)
126           DO bi=myBxLo(myThid), myBxHi(myThid)           DO bi=myBxLo(myThid), myBxHi(myThid)
127            dBugFlag = dBugFlag.AND.(bi.EQ.1.AND.bj.EQ.1.AND.myThid.EQ.1)            dBugFlag = dBugFlag.AND.(bi.EQ.1.AND.bj.EQ.1.AND.myThid.EQ.1)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22