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

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

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

revision 1.1 by jmc, Fri May 20 07:28:50 2005 UTC revision 1.2 by jmc, Sun Jun 26 16:51:49 2005 UTC
# Line 27  C     myThid  :: my Thread Id number Line 27  C     myThid  :: my Thread Id number
27  CEOP  CEOP
28    
29  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
30        INTEGER l, n        INTEGER m, ndId, iSp
31    
32        DO l=1,diagSt_nbActv(listId)        DO m=1,diagSt_nbActv(listId)
33         n = jSdiag(l,listId)         IF ( iSdiag(m,listId).GT.0 ) THEN
34         IF ( iSdiag(n).NE.0 ) THEN           ndId = jSdiag(m,listId)
35           CALL DIAGSTATS_CLRDIAG( n, myThid )           iSp  = iSdiag(m,listId)
36             CALL DIAGSTATS_CLRDIAG( ndId, iSp, myThid )
37         ENDIF         ENDIF
38        ENDDO        ENDDO
39    
# Line 45  CBOP 0 Line 46  CBOP 0
46  C     !ROUTINE: DIAGSTATS_CLEAR  C     !ROUTINE: DIAGSTATS_CLEAR
47    
48  C     !INTERFACE:  C     !INTERFACE:
49        SUBROUTINE DIAGSTATS_CLRDIAG( ndId, myThid )        SUBROUTINE DIAGSTATS_CLRDIAG( ndId, iSp, myThid )
50    
51  C     !DESCRIPTION:  C     !DESCRIPTION:
52  C     Zero out 1 statistics-diagnostic array  C     Zero out 1 statistics-diagnostic array
53    
54  C     !USES:  C     !USES:
55        IMPLICIT NONE        IMPLICIT NONE
# Line 59  C     !USES: Line 60  C     !USES:
60    
61  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
62  C     ndId    :: Diagnostics Id Number (in available diag. list) to zero out  C     ndId    :: Diagnostics Id Number (in available diag. list) to zero out
63    C     iSp     :: diagnostic pointer to storage array
64  C     myThid  :: my Thread Id number  C     myThid  :: my Thread Id number
65        INTEGER ndId, myThid        INTEGER ndId, iSp, myThid
66  CEOP  CEOP
67    
68  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 73  C ************************************** Line 75  C **************************************
75    
76        DO bj=myByLo(myThid), myByHi(myThid)        DO bj=myByLo(myThid), myByHi(myThid)
77         DO bi=myBxLo(myThid), myBxHi(myThid)         DO bi=myBxLo(myThid), myBxHi(myThid)
78          DO k = iSdiag(ndId),iSdiag(ndId)+kdiag(ndId)-1          DO k = iSp,iSp+kdiag(ndId)-1
79           DO j = 0,nRegions           DO j = 0,nRegions
80            DO i = 0,nStats            DO i = 0,nStats
81             qSdiag(i,j,k,bi,bj) = 0.             qSdiag(i,j,k,bi,bj) = 0.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22