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