/[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.11 by heimbach, Sat Nov 4 14:28:09 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    
# Line 59  C     Zero out the qSdiag array (statist Line 63  C     Zero out the qSdiag array (statist
63    
64        CALL DIAGNOSTICS_READ_PICKUP( myThid )        CALL DIAGNOSTICS_READ_PICKUP( myThid )
65    
       CALL DIAGSTATS_INI_IO( myThid )  
   
66        CALL DIAGNOSTICS_SUMMARY( startTime, nIter0, myThid )        CALL DIAGNOSTICS_SUMMARY( startTime, nIter0, myThid )
67    
68        RETURN        RETURN
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22