/[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.6 by edhill, Wed Feb 23 15:15:30 2005 UTC revision 1.7 by molod, Fri May 6 20:34:16 2005 UTC
# Line 43  C     Zero out the qdiag array which acc Line 43  C     Zero out the qdiag array which acc
43          ENDDO          ENDDO
44        ENDDO        ENDDO
45    
46    C     Zero out the counters for the qdiag array
47          do n=1,ndiagMax
48            ndiag(n) = 0
49          enddo
50    
51        CALL DIAGNOSTICS_READ_PICKUP( myThid )        CALL DIAGNOSTICS_READ_PICKUP( myThid )
52    
53        RETURN        RETURN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22