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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by jmc, Sun Jun 26 16:51:49 2005 UTC revision 1.10 by jmc, Mon Jun 5 18:15:53 2006 UTC
# Line 41  C     Zero out the qdiag array which acc Line 41  C     Zero out the qdiag array which acc
41  C     Zero out the counters for the qdiag array  C     Zero out the counters for the qdiag array
42              ndiag(k,bi,bj) = 0              ndiag(k,bi,bj) = 0
43            ENDDO            ENDDO
44              DO k = 1,numlists
45    C     Zero out the index array for periodic averaging diagnostic
46                pdiag(k,bi,bj) = 0
47              ENDDO
48          ENDDO          ENDDO
49        ENDDO        ENDDO
50    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22