& no_slip_sides, no_slip_bottom, useSmag3D,
LOGICAL no_slip_bottom
freeSlip3d = .NOT.( no_slip_sides .AND. no_slip_bottom )
IF (no_slip_bottom) viscFac = 2.
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.