Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by jmc, Mon Dec 20 01:52:58 2004 UTC | revision 1.4 by jmc, Mon May 16 15:07:45 2005 UTC | |
---|---|---|
# | Line 39 C == Local variables == | Line 39 C == Local variables == |
39 | LOGICAL found | LOGICAL found |
40 | CHARACTER*(MAX_LEN_MBUF) msgBuf | CHARACTER*(MAX_LEN_MBUF) msgBuf |
41 | ||
C-- Calculate pointers for diagnostics set to non-zero frequency | ||
42 | ||
43 | _BEGIN_MASTER( myThid) | _BEGIN_MASTER( myThid) |
44 | ||
45 | C-- Initialize pointer arrays to zero: | |
46 | DO n=1,ndiagMax | |
47 | idiag(n) = 0 | |
48 | ENDDO | |
49 | ||
50 | C-- Calculate pointers for diagnostics set to non-zero frequency | |
51 | ||
52 | ndiagcount = 0 | ndiagcount = 0 |
53 | nActiveMax = 0 | nActiveMax = 0 |
54 | DO n=1,nlists | DO n=1,nlists |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |