251 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
252 |
& SQUEEZE_RIGHT , myThid) |
& SQUEEZE_RIGHT , myThid) |
253 |
ENDIF |
ENDIF |
254 |
|
|
255 |
|
IF (select_rStar .NE. 0) THEN |
256 |
|
WRITE(msgBuf,'(A)') |
257 |
|
& 'CONFIG_CHECK: rStar is part of NonLin-FS ' |
258 |
|
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
259 |
|
& SQUEEZE_RIGHT , myThid) |
260 |
|
WRITE(msgBuf,'(A)') |
261 |
|
& 'CONFIG_CHECK: ==> use #define NONLIN_FRSURF to use it' |
262 |
|
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
263 |
|
& SQUEEZE_RIGHT , myThid) |
264 |
|
ENDIF |
265 |
#endif /* NONLIN_FRSURF */ |
#endif /* NONLIN_FRSURF */ |
266 |
|
|
267 |
WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK' |
WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK' |