826 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
827 |
errCount = errCount + 1 |
errCount = errCount + 1 |
828 |
ENDIF |
ENDIF |
|
IF ( addFrictionHeating .AND. .NOT.staggerTimeStep ) THEN |
|
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating', |
|
|
& ' not yet coded for synchronous time-stepping.' |
|
|
CALL PRINT_ERROR( msgBuf, myThid ) |
|
|
errCount = errCount + 1 |
|
|
ENDIF |
|
829 |
IF ( implBottomFriction ) THEN |
IF ( implBottomFriction ) THEN |
830 |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: implBottomFriction', |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: implBottomFriction', |
831 |
& ' not yet coded.' |
& ' not yet coded.' |