61 |
ENDIF |
ENDIF |
62 |
ENDIF |
ENDIF |
63 |
|
|
64 |
#ifdef ALLOW_OBCS_PRESCRIBE |
#ifndef ALLOW_OBCS_PRESCRIBE |
|
# ifndef ALLOW_EXF |
|
|
WRITE(msgBuf,'(A)') |
|
|
& 'OBCS_CHECK: ERROR: ALLOW_OBCS_PRESCRIBE' |
|
|
CALL PRINT_ERROR( msgBuf , 1) |
|
|
WRITE(msgBuf,'(A)') |
|
|
& 'OBCS_CHECK: needs to ALLOW_EXF, ALLOW_CAL' |
|
|
STOP 'ABNORMAL END: S/R OBCS_CHECK' |
|
|
# endif |
|
|
#else |
|
65 |
IF (useOBCSprescribe) THEN |
IF (useOBCSprescribe) THEN |
66 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
67 |
& 'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for' |
& 'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for' |