/[MITgcm]/MITgcm/pkg/obcs/obcs_check.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_check.F

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

revision 1.9 by jmc, Wed Dec 7 19:58:35 2005 UTC revision 1.10 by mlosch, Wed Sep 27 11:31:58 2006 UTC
# Line 32  C     msgBuf      - Informational/error Line 32  C     msgBuf      - Informational/error
32        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
33       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
34    
35    #ifdef ALLOW_CD_CODE
36          IF ( useCDscheme ) THEN
37           WRITE(msgBuf,'(A)')
38         &  'OBCS_CHECK: ERROR: useCDscheme = .TRUE.'
39           CALL PRINT_ERROR( msgBuf , 1)
40           WRITE(msgBuf,'(A)')
41         &  'OBCS_CHECK: ERROR: The CD-scheme does not work with OBCS.'
42           CALL PRINT_ERROR( msgBuf , 1)
43           WRITE(msgBuf,'(A)')
44         &  'OBCS_CHECK: ERROR: Sorry, not yet implemented.'
45           CALL PRINT_ERROR( msgBuf , 1)
46           STOP 'ABNORMAL END: S/R OBCS_CHECK'
47          ENDIF
48    #endif /* ALLOW_CD_CODE */
49    
50  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
51        WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI'
52        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22