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

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

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

revision 1.15 by jmc, Mon Dec 13 21:55:48 2004 UTC revision 1.16 by jmc, Mon Dec 20 01:53:54 2004 UTC
# Line 273  C     !LOCAL VARIABLES: Line 273  C     !LOCAL VARIABLES:
273         DO m=1,nActive(n)         DO m=1,nActive(n)
274          IF ( diagName.EQ.flds(m,n) ) THEN          IF ( diagName.EQ.flds(m,n) ) THEN
275            j = jdiag(m,n)                j = jdiag(m,n)    
276            IF (idiag(j).NE.0 ) DIAGNOSTICS_IS_ON = .TRUE.            IF ( idiag(j).NE.0 .AND. ndiag(j).GE.0 )
277         &         DIAGNOSTICS_IS_ON = .TRUE.
278          ENDIF          ENDIF
279         ENDDO         ENDDO
280        ENDDO        ENDDO
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22