LOGICAL useBBL
& useGMRedi, useBBL, useDOWN_SLOPE,
IF ( useBBL ) CALL BBL_TENDENCY_APPLY_T(
IF ( useBBL ) CALL BBL_TENDENCY_APPLY_S(
IF ( useBBL ) THEN
IF ( .NOT. ( useDOWN_SLOPE .OR. useBBL ) ) THEN
IF ( seqFlag.EQ.0 .AND. useBBL ) THEN
useBBL =.FALSE.
CALL PACKAGES_PRINT_MSG( useBBL, 'BBL', ' ' )
& useBBL,
IF (useBBL) CALL BBL_CHECK( myThid )
IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
IF ( useDOWN_SLOPE .AND. useBBL ) THEN
IF (useBBL) THEN
IF ( .NOT.useBBL ) THEN