14 |
C === Global variables === |
C === Global variables === |
15 |
#include "SIZE.h" |
#include "SIZE.h" |
16 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
17 |
|
#include "PARAMS.h" |
18 |
#include "OBCS.h" |
#include "OBCS.h" |
19 |
|
|
20 |
C === Routine arguments === |
C === Routine arguments === |
48 |
ENDIF |
ENDIF |
49 |
#endif /* ALLOW_ORLANSKI */ |
#endif /* ALLOW_ORLANSKI */ |
50 |
|
|
51 |
|
IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR. |
52 |
|
& useOrlanskiEast.OR.useOrlanskiWest) THEN |
53 |
|
IF (nonlinFreeSurf.GT.0) THEN |
54 |
|
WRITE(msgBuf,'(A)') |
55 |
|
& 'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with' |
56 |
|
CALL PRINT_ERROR( msgBuf , 1) |
57 |
|
WRITE(msgBuf,'(A)') |
58 |
|
& 'OBCS_CHECK: ERROR: nonlinFreeSurf not yet implemented' |
59 |
|
CALL PRINT_ERROR( msgBuf , 1) |
60 |
|
STOP 'ABNORMAL END: S/R OBCS_CHECK' |
61 |
|
ENDIF |
62 |
|
ENDIF |
63 |
|
|
64 |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK' |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK' |
65 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
66 |
& SQUEEZE_RIGHT,myThid) |
& SQUEEZE_RIGHT,myThid) |