Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by jmc, Mon Dec 20 01:53:53 2004 UTC | revision 1.2 by jmc, Sun Feb 6 23:19:02 2005 UTC | |
---|---|---|
# | Line 52 C---+----1----+----2----+----3----+----4 | Line 52 C---+----1----+----2----+----3----+----4 |
52 | IF ( freq(n).LT.0 ) THEN | IF ( freq(n).LT.0 ) THEN |
53 | C-- Select diagnostics list that uses instantaneous output | C-- Select diagnostics list that uses instantaneous output |
54 | ||
55 | IF ( MOD(newIter,freq(n)).EQ.0 ) THEN | c IF ( MOD(newIter,freq(n)).EQ.0 ) THEN |
56 | IF ( MOD(myIter,-freq(n)).EQ.INT(-freq(n)/2) ) THEN | |
57 | C-- switch ON diagnostics of output-stream # n | C-- switch ON diagnostics of output-stream # n |
58 | DO m=1,nActive(n) | DO m=1,nActive(n) |
59 | j = jdiag(m,n) | j = jdiag(m,n) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |