/[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.7 by molod, Fri May 6 20:34:16 2005 UTC revision 1.8 by jmc, Fri May 20 07:28:50 2005 UTC
# Line 27  C     !INPUT PARAMETERS: Line 27  C     !INPUT PARAMETERS:
27  CEOP  CEOP
28    
29  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
30        INTEGER i,j,n,bi,bj        INTEGER i,j,k,n,bi,bj
       CHARACTER*(80) fn  
31    
32  C     Zero out the qdiag array which accumulates during integration  C     Zero out the qdiag array which accumulates during integration
33        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
34          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
35            DO n = 1,numdiags            DO k = 1,numdiags
36              DO j = 1-Oly,sNy+Oly              DO j = 1-Oly,sNy+Oly
37                DO i = 1-Olx,sNx+Olx                DO i = 1-Olx,sNx+Olx
38                  qdiag(i,j,n,bi,bj) = 0. _d 0                  qdiag(i,j,k,bi,bj) = 0. _d 0
39                ENDDO                ENDDO
40              ENDDO              ENDDO
41            ENDDO            ENDDO
# Line 48  C     Zero out the counters for the qdia Line 47  C     Zero out the counters for the qdia
47          ndiag(n) = 0          ndiag(n) = 0
48        enddo        enddo
49    
50    C     Zero out the qSdiag array (statistics) which accumulates during integration
51          DO bj = myByLo(myThid), myByHi(myThid)
52            DO bi = myBxLo(myThid), myBxHi(myThid)
53              DO k = 1,diagSt_size
54                DO j = 0,nRegions
55                  DO i = 0,nStats
56                    qSdiag(i,j,k,bi,bj) = 0. _d 0
57                  ENDDO
58                ENDDO
59              ENDDO
60            ENDDO
61          ENDDO
62    
63        CALL DIAGNOSTICS_READ_PICKUP( myThid )        CALL DIAGNOSTICS_READ_PICKUP( myThid )
64    
65          CALL DIAGSTATS_INI_IO( myThid )
66    
67        RETURN        RETURN
68        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22