LOGICAL useDOWN_SLOPE
& useGMRedi, useDOWN_SLOPE,
IF ( usePTRACERS .AND. useDOWN_SLOPE ) THEN
IF ( useShelfIce .AND. useDOWN_SLOPE ) THEN
IF ( useDOWN_SLOPE ) THEN
PTRACERS_useDWNSLP(iTracer)=useDOWN_SLOPE
IF ( PTRACERS_useDWNSLP(iTracer) .AND. .NOT.useDOWN_SLOPE ) THEN
& ' But not useDOWN_SLOPE (=', useDOWN_SLOPE, ')'
useDOWN_SLOPE =.FALSE.
& useDOWN_SLOPE,
IF (useDOWN_SLOPE)
IF (useDOWN_SLOPE) CALL DWNSLP_READPARMS( myThid )
IF ( tempStepping .AND. useDOWN_SLOPE ) THEN
IF ( saltStepping .AND. useDOWN_SLOPE ) THEN