& no_slip_sides, no_slip_bottom,
LOGICAL no_slip_bottom
IF (no_slip_bottom) viscFac=1.
IF ( no_slip_bottom
CALL WRITE_0D_L( no_slip_bottom, INDEX_NONE,
no_slip_shelfice = no_slip_bottom
& no_slip_bottom, bottomDragLinear, bottomDragQuadratic,
no_slip_bottom = .TRUE.