/[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.12 by jmc, Tue Feb 5 15:31:19 2008 UTC revision 1.13 by jmc, Wed Aug 14 00:57:33 2013 UTC
# Line 29  CEOP Line 29  CEOP
29  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
30        INTEGER i,j,k,bi,bj        INTEGER i,j,k,bi,bj
31    
32  C     Zero out the qdiag array which accumulates during integration  C--   Track diagnostics pkg activation status:
33          _BEGIN_MASTER( myThid )
34    c      IF ( diag_pkgStatus.NE.3 ) STOP
35           diag_pkgStatus = 10
36          _END_MASTER( myThid )
37    
38    C--   Zero out the qdiag array which accumulates during integration
39        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
40          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
41            DO k = 1,numDiags            DO k = 1,numDiags
42              DO j = 1-Oly,sNy+Oly              DO j = 1-OLy,sNy+OLy
43                DO i = 1-Olx,sNx+Olx                DO i = 1-OLx,sNx+OLx
44                  qdiag(i,j,k,bi,bj) = 0. _d 0                  qdiag(i,j,k,bi,bj) = 0. _d 0
45                ENDDO                ENDDO
46              ENDDO              ENDDO
47  C     Zero out the counters for the qdiag array  C-    Zero out the counters for the qdiag array
48              ndiag(k,bi,bj) = 0              ndiag(k,bi,bj) = 0
49            ENDDO            ENDDO
50            DO k = 1,numlists            DO k = 1,numLists
51  C     Zero out the index array for periodic averaging diagnostic  C-    Zero out the index array for periodic averaging diagnostic
52              pdiag(k,bi,bj) = 0              pdiag(k,bi,bj) = 0
53            ENDDO            ENDDO
54          ENDDO          ENDDO
55        ENDDO        ENDDO
56    
57  C     Zero out the qSdiag array (statistics) which accumulates during integration  C--   Zero out the qSdiag array (statistics) which accumulates during integration
58        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
59          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
60            DO k = 1,diagSt_size            DO k = 1,diagSt_size
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22