Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.10 by jmc, Sat May 21 22:33:40 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 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |