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) |