/[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.10 by jmc, Sat May 21 22:33:40 2005 UTC
# 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.10
  ViewVC Help
Powered by ViewVC 1.1.22