472 |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
473 |
ENDIF |
ENDIF |
474 |
|
|
|
IF ( highOrderVorticity .AND. useCubedSphereExchange ) THEN |
|
|
WRITE(msgBuf,'(2A)') |
|
|
& 'CONFIG_CHECK WARNING: highOrderVorticity Scheme is not ', |
|
|
& 'yet fully implemented on CubedSphere grid' |
|
|
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
|
& SQUEEZE_RIGHT , myThid) |
|
|
ENDIF |
|
|
|
|
475 |
IF ( momForcingOutAB.NE.0 .AND. momForcingOutAB.NE.1 ) THEN |
IF ( momForcingOutAB.NE.0 .AND. momForcingOutAB.NE.1 ) THEN |
476 |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=', |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=', |
477 |
& momForcingOutAB, ' not allowed' |
& momForcingOutAB, ' not allowed' |