/[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.9 by jmc, Mon Jun 27 22:23:09 2011 UTC revision 1.10 by gforget, Wed Jan 11 00:22:48 2017 UTC
# Line 45  C     Check diagnostics parameter consis Line 45  C     Check diagnostics parameter consis
45       &                      SQUEEZE_RIGHT , myThid )       &                      SQUEEZE_RIGHT , myThid )
46        ENDIF        ENDIF
47    
48          IF ( diag_mnc.AND.(diagMdsDir.NE.' ') ) THEN
49            WRITE(msgBuf,'(A,A)') 'S/R DIAGNOSTICS_CHECK: diagMdsDir ',
50         &       'and pkg/mnc cannot be used together'
51            CALL PRINT_ERROR( msgBuf, myThid )
52            CALL ALL_PROC_DIE( 0 )
53            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
54          ENDIF
55    
56          IF ( (mdsioLocalDir.NE.' ').AND.(diagMdsDir.NE.' ') ) THEN
57            WRITE(msgBuf,'(A)')
58         &   'S/R DIAGNOSTICS_CHECK: mdsioLocalDir and diagMdsDir cannot be'
59            CALL PRINT_ERROR( msgBuf, myThid )
60            WRITE(msgBuf,'(A)')
61         &   'S/R DIAGNOSTICS_CHECK: specified at the same time'
62            CALL PRINT_ERROR( msgBuf, myThid )
63            CALL ALL_PROC_DIE( 0 )
64            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
65          ENDIF
66    
67  #ifdef DIAGNOSTICS_HAS_PICKUP  #ifdef DIAGNOSTICS_HAS_PICKUP
68        IF ( diag_pickup_read ) THEN        IF ( diag_pickup_read ) THEN
69          WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ',          WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ',
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22