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, |