468 |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
469 |
ENDIF |
ENDIF |
470 |
|
|
471 |
IF ( useOldFreezing .AND. allowFreezing ) THEN |
IF ( momForcingOutAB.NE.0 .AND. momForcingOutAB.NE.1 ) THEN |
472 |
WRITE(msgBuf,'(2A)') |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=', |
473 |
& 'CONFIG_CHECK: cannot set both: allowFreezing & useOldFreezing' |
& momForcingOutAB, ' not allowed' |
474 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
475 |
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: momForcingOutAB ', |
476 |
|
& 'should be =1 (Out of AB) or =0 (In AB)' |
477 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
478 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
479 |
|
ENDIF |
480 |
|
IF ( tracForcingOutAB.NE.0 .AND. tracForcingOutAB.NE.1 ) THEN |
481 |
|
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: tracForcingOutAB=', |
482 |
|
& tracForcingOutAB, ' not allowed' |
483 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
484 |
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: tracForcingOutAB ', |
485 |
|
& 'should be =1 (Out of AB) or =0 (In AB)' |
486 |
CALL PRINT_ERROR( msgBuf , myThid) |
CALL PRINT_ERROR( msgBuf , myThid) |
487 |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
488 |
ENDIF |
ENDIF |