LOGICAL useDOWN_SLOPE
& useGMRedi, useBBL, useDOWN_SLOPE,
IF ( useShelfIce .AND. useDOWN_SLOPE ) THEN
IF ( useDOWN_SLOPE ) THEN
IF ( .NOT. ( useDOWN_SLOPE .OR. useBBL ) ) THEN
IF ( PTRACERS_useDWNSLP(iTracer) .AND. .NOT.useDOWN_SLOPE ) THEN
& ' But not useDOWN_SLOPE (=', useDOWN_SLOPE, ')'
PTRACERS_useDWNSLP(iTracer)=useDOWN_SLOPE
useDOWN_SLOPE =.FALSE.
CALL PACKAGES_PRINT_MSG( useDOWN_SLOPE, 'DOWN_SLOPE', ' ' )
& useDOWN_SLOPE,
IF (useDOWN_SLOPE)
IF ( useDOWN_SLOPE .AND. useBBL ) THEN
IF ( .NOT.useDOWN_SLOPE ) THEN