pkg/diagnostics/diagstats_clear.F

3e5de6a370 Jean*0001 #include "DIAG_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: DIAGSTATS_CLEAR
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE DIAGSTATS_CLEAR( listId, myThid)
                0009
                0010 C     !DESCRIPTION:
                0011 C     Clear statistics-diagnostics specified in 1 output stream list
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "EEPARAMS.h"
                0016 #include "SIZE.h"
                0017 #include "DIAGNOSTICS_SIZE.h"
                0018 #include "DIAGNOSTICS.h"
                0019
                0020 C     !INPUT PARAMETERS:
                0021 C     listId :: Diagnostics list number being written
                0022 C     myThid  :: my Thread Id number
                0023       INTEGER  listId, myThid
                0024 CEOP
                0025
                0026 C     !LOCAL VARIABLES:
3ae5f90260 Jean*0027       INTEGER m, ndId, iSp
3e5de6a370 Jean*0028
3ae5f90260 Jean*0029       DO m=1,diagSt_nbActv(listId)
                0030        IF ( iSdiag(m,listId).GT.0 ) THEN
                0031          ndId = jSdiag(m,listId)
                0032          iSp  = iSdiag(m,listId)
                0033          CALL DIAGSTATS_CLRDIAG( ndId, iSp, myThid )
3e5de6a370 Jean*0034        ENDIF
                0035       ENDDO
                0036
                0037       RETURN
                0038       END
                0039
                0040 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0041
                0042 CBOP 0
                0043 C     !ROUTINE: DIAGSTATS_CLEAR
                0044
                0045 C     !INTERFACE:
3ae5f90260 Jean*0046       SUBROUTINE DIAGSTATS_CLRDIAG( ndId, iSp, myThid )
3e5de6a370 Jean*0047
                0048 C     !DESCRIPTION:
3ae5f90260 Jean*0049 C     Zero out 1 statistics-diagnostic array
3e5de6a370 Jean*0050
                0051 C     !USES:
                0052       IMPLICIT NONE
                0053 #include "EEPARAMS.h"
                0054 #include "SIZE.h"
                0055 #include "DIAGNOSTICS_SIZE.h"
                0056 #include "DIAGNOSTICS.h"
                0057
                0058 C     !INPUT PARAMETERS:
                0059 C     ndId    :: Diagnostics Id Number (in available diag. list) to zero out
3ae5f90260 Jean*0060 C     iSp     :: diagnostic pointer to storage array
3e5de6a370 Jean*0061 C     myThid  :: my Thread Id number
3ae5f90260 Jean*0062       INTEGER ndId, iSp, myThid
3e5de6a370 Jean*0063 CEOP
                0064
                0065 C     !LOCAL VARIABLES:
                0066       INTEGER bi,bj
                0067       INTEGER i,j,k
                0068
                0069 C **********************************************************************
                0070 C ****              SET DIAGNOSTIC AND COUNTER TO ZERO              ****
                0071 C **********************************************************************
                0072
                0073       DO bj=myByLo(myThid), myByHi(myThid)
                0074        DO bi=myBxLo(myThid), myBxHi(myThid)
3ae5f90260 Jean*0075         DO k = iSp,iSp+kdiag(ndId)-1
3e5de6a370 Jean*0076          DO j = 0,nRegions
                0077           DO i = 0,nStats
                0078            qSdiag(i,j,k,bi,bj) = 0.
                0079           ENDDO
                0080          ENDDO
                0081         ENDDO
                0082        ENDDO
                0083       ENDDO
                0084
                0085       RETURN
                0086       END