/[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.2 by jmc, Thu Dec 16 21:39:53 2004 UTC revision 1.3 by jmc, Wed Feb 23 14:45:00 2005 UTC
# Line 34  C     !LOCAL VARIABLES: Line 34  C     !LOCAL VARIABLES:
34  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
35  C     Check diagnostics parameter consistency  C     Check diagnostics parameter consistency
36    
37    #ifdef DIAGNOSTICS_HAS_PICKUP
38          IF ( diag_pickup_read ) THEN
39            WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ',
40         &   'reading diagnostics previous state'
41            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
42         &       SQUEEZE_RIGHT , myThid)
43            WRITE(msgBuf,'(2A)') '**CAUTION** ',
44         &   ' from a pickup file can only work if data.diagnostics'
45            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
46         &       SQUEEZE_RIGHT , myThid)
47            WRITE(msgBuf,'(2A)') '**CAUTION** ',
48         &   ' is not changed (<= further checking not yet implemented)'
49            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
50         &       SQUEEZE_RIGHT , myThid)
51          ENDIF
52    #else /* undef DIAGNOSTICS_HAS_PICKUP */
53    C-    stop if trying to use part of the code that is not compiled:
54          IF ( diag_pickup_read  ) THEN
55            WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ',
56         &   'diag_pickup_read  is TRUE ',
57         &   'but DIAGNOSTICS_HAS_PICKUP is "#undef"'
58            CALL PRINT_ERROR( msgBuf , myThid)
59          ENDIF
60          IF ( diag_pickup_write ) THEN
61            WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ',
62         &   'diag_pickup_write is TRUE ',
63         &   'but DIAGNOSTICS_HAS_PICKUP is "#undef"'
64            CALL PRINT_ERROR( msgBuf , myThid)
65          ENDIF
66          IF ( diag_pickup_read .OR. diag_pickup_write ) THEN
67            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
68          ENDIF
69    #endif /* DIAGNOSTICS_HAS_PICKUP */
70          
71  C-    File names:  C-    File names:
72        DO n = 2,nlists        DO n = 2,nlists
73         DO m = 1,n-1         DO m = 1,n-1
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22