/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_utils.F

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

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

-revision 1.19 by jmc,
Thu Feb 17 00:00:47 2005 UTC
+revision 1.20 by jmc,
Thu May 19 01:18:31 2005 UTC
 Line 269 
 c       ENDIF
  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
  CBOP 0
- C     !ROUTINE: DIAGNOSTICS_IS_ON
- C     !INTERFACE:
-       LOGICAL FUNCTION DIAGNOSTICS_IS_ON( diagName, myThid )
- C     !DESCRIPTION:
- C     *==========================================================*
- C     | FUNCTION DIAGNOSTIC_IS_ON
- C     | o Return TRUE if diagnostics "diagName" is Active
- C     *==========================================================*
- C     !USES:
-       IMPLICIT NONE
- #include "EEPARAMS.h"
- #include "SIZE.h"
- #include "DIAGNOSTICS_SIZE.h"
- #include "DIAGNOSTICS.h"
- C     !INPUT PARAMETERS:
- C     diagName   ::  diagnostic identificator name (8 characters long)
- C     myThid     ::  my thread Id number
-       CHARACTER*8  diagName
-       INTEGER      myThid
- CEOP
- C     !LOCAL VARIABLES:
-       INTEGER j,n,m
-       DIAGNOSTICS_IS_ON = .FALSE.
-       DO n=1,nlists
-        DO m=1,nActive(n)
-         IF ( diagName.EQ.flds(m,n) ) THEN
-           j = jdiag(m,n)
-           IF ( idiag(j).NE.0 .AND. ndiag(j).GE.0 )
-      &         DIAGNOSTICS_IS_ON = .TRUE.
-         ENDIF
-        ENDDO
-       ENDDO
-       RETURN
-       END
- C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
- CBOP 0
  C     !ROUTINE: DIAGS_MK_UNITS
  C     !INTERFACE:

 Legend:



Removed from v.1.19
 


changed lines


 
Added in v.1.20
 Legend:



Removed from v.1.19
 


changed lines


 
Added in v.1.20
-Removed from v.1.19
+Added in v.1.20

	ViewVC Help
Powered by ViewVC 1.1.22