751 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
752 |
errCount = errCount + 1 |
errCount = errCount + 1 |
753 |
ENDIF |
ENDIF |
754 |
|
IF ( selectBotDragQuadr.LT.-1 .OR. selectBotDragQuadr.GT.2 ) THEN |
755 |
|
WRITE(msgBuf,'(2A,I8,A)') 'CONFIG_CHECK: ', |
756 |
|
& 'selectBotDragQuadr=', selectBotDragQuadr, |
757 |
|
& ' not valid (-1,0,1,2)' |
758 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
759 |
|
errCount = errCount + 1 |
760 |
|
ENDIF |
761 |
IF ( useSmag3D .AND. |
IF ( useSmag3D .AND. |
762 |
& ( usingPCoords .OR. deepAtmosphere .OR. selectSigmaCoord.NE.0 |
& ( usingPCoords .OR. deepAtmosphere .OR. selectSigmaCoord.NE.0 |
763 |
& .OR. rhoRefFile.NE.' ' .OR. hasWetCSCorners ) |
& .OR. rhoRefFile.NE.' ' .OR. hasWetCSCorners ) |
832 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
833 |
errCount = errCount + 1 |
errCount = errCount + 1 |
834 |
ENDIF |
ENDIF |
835 |
|
IF ( implBottomFriction ) THEN |
836 |
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: implBottomFriction', |
837 |
|
& ' not yet coded.' |
838 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
839 |
|
errCount = errCount + 1 |
840 |
|
ENDIF |
841 |
|
|
842 |
C-- Grid limitations: |
C-- Grid limitations: |
843 |
IF ( rotateGrid ) THEN |
IF ( rotateGrid ) THEN |