pkg/diagnostics/diagnostics_is_on.F

c8f4c79b73 Jean*0001 #include "DIAG_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004
                0005 CBOP 0
                0006 C     !ROUTINE: DIAGNOSTICS_IS_ON
                0007
                0008 C     !INTERFACE:
                0009       LOGICAL FUNCTION DIAGNOSTICS_IS_ON( diagName, myThid )
                0010
                0011 C     !DESCRIPTION:
                0012 C     *==========================================================*
                0013 C     | FUNCTION DIAGNOSTIC_IS_ON
                0014 C     | o Return TRUE if diagnostics "diagName" is Active
                0015 C     *==========================================================*
                0016
                0017 C     !USES:
                0018       IMPLICIT NONE
                0019 #include "EEPARAMS.h"
                0020 #include "SIZE.h"
                0021 #include "DIAGNOSTICS_SIZE.h"
                0022 #include "DIAGNOSTICS.h"
                0023
                0024 C     !INPUT PARAMETERS:
                0025 C     diagName   ::  diagnostic identificator name (8 characters long)
                0026 C     myThid     ::  my thread Id number
                0027       CHARACTER*8  diagName
                0028       INTEGER      myThid
                0029 CEOP
                0030
                0031 C     !LOCAL VARIABLES:
3ae5f90260 Jean*0032       INTEGER n,m
                0033       INTEGER ip,iSp
457000cc7d Jean*0034       INTEGER bi,bj
c8f4c79b73 Jean*0035
                0036       DIAGNOSTICS_IS_ON = .FALSE.
457000cc7d Jean*0037       bi = myBxLo(myThid)
                0038       bj = myByLo(myThid)
3e5de6a370 Jean*0039
                0040 C-    search for this diag. in the active 2D/3D diagnostics list
c8f4c79b73 Jean*0041       DO n=1,nlists
                0042        DO m=1,nActive(n)
3ae5f90260 Jean*0043         IF ( diagName.EQ.flds(m,n) .AND. idiag(m,n).NE.0 ) THEN
                0044           ip = ABS(idiag(m,n))
457000cc7d Jean*0045           IF ( ndiag(ip,bi,bj).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE.
c8f4c79b73 Jean*0046         ENDIF
                0047        ENDDO
                0048       ENDDO
                0049
3e5de6a370 Jean*0050       IF ( .NOT.DIAGNOSTICS_IS_ON ) THEN
                0051 C-    search for this diag. in the active statistics-diagnostics list
                0052        DO n=1,diagSt_nbLists
                0053         DO m=1,diagSt_nbActv(n)
457000cc7d Jean*0054          IF ( diagName.EQ.diagSt_Flds(m,n)
3ae5f90260 Jean*0055      &               .AND.iSdiag(m,n).NE.0 ) THEN
                0056            iSp = ABS(iSdiag(m,n))
457000cc7d Jean*0057            IF (qSdiag(0,0,iSp,bi,bj).GE.0.) DIAGNOSTICS_IS_ON = .TRUE.
3ae5f90260 Jean*0058          ENDIF
3e5de6a370 Jean*0059         ENDDO
                0060        ENDDO
                0061       ENDIF
                0062
c8f4c79b73 Jean*0063       RETURN
                0064       END