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

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

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

revision 1.1 by jmc, Thu May 19 01:18:31 2005 UTC revision 1.2 by jmc, Fri May 20 07:28:50 2005 UTC
# Line 33  CEOP Line 33  CEOP
33    
34  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
35        INTEGER j,n,m        INTEGER j,n,m
36          INTEGER iSp
37    
38        DIAGNOSTICS_IS_ON = .FALSE.        DIAGNOSTICS_IS_ON = .FALSE.
39    
40    C-    search for this diag. in the active 2D/3D diagnostics list
41        DO n=1,nlists        DO n=1,nlists
42         DO m=1,nActive(n)         DO m=1,nActive(n)
43          IF ( diagName.EQ.flds(m,n) ) THEN          IF ( diagName.EQ.flds(m,n) ) THEN
# Line 45  C     !LOCAL VARIABLES: Line 48  C     !LOCAL VARIABLES:
48         ENDDO         ENDDO
49        ENDDO        ENDDO
50    
51          IF ( .NOT.DIAGNOSTICS_IS_ON ) THEN
52    C-    search for this diag. in the active statistics-diagnostics list
53           DO n=1,diagSt_nbLists
54            DO m=1,diagSt_nbActv(n)
55              IF ( diagName.EQ.diagSt_Flds(m,n) ) THEN
56                j = jSdiag(m,n)
57                iSp = iSdiag(j)
58                IF ( iSp.NE.0 ) THEN
59                  IF (qSdiag(0,0,iSp,1,1).LT.0.) iSp = 0
60                ENDIF
61                IF ( iSp.NE.0 ) DIAGNOSTICS_IS_ON = .TRUE.
62              ENDIF
63            ENDDO
64           ENDDO
65          ENDIF
66    
67        RETURN        RETURN
68        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22