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

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

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

revision 1.8 by jmc, Tue Feb 5 15:31:19 2008 UTC revision 1.9 by jmc, Mon Jun 27 22:23:09 2011 UTC
# Line 38  C     !LOCAL VARIABLES: Line 38  C     !LOCAL VARIABLES:
38  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
39  C     Check diagnostics parameter consistency  C     Check diagnostics parameter consistency
40    
41          IF ( useMissingValue .AND. .NOT. diag_mnc ) THEN
42            WRITE(msgBuf,'(2A)') '** WARNING ** DIAGNOSTICS_CHECK: ',
43         &            'ignore "useMissingValue" since "diag_mnc" is off'
44            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
45         &                      SQUEEZE_RIGHT , myThid )
46          ENDIF
47    
48  #ifdef DIAGNOSTICS_HAS_PICKUP  #ifdef DIAGNOSTICS_HAS_PICKUP
49        IF ( diag_pickup_read ) THEN        IF ( diag_pickup_read ) THEN
50          WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ',          WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ',
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22