/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_set_pointers.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_set_pointers.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22