& sideDragFactor, bottomDragLinear, bottomDragQuadratic, nh_Am2,
_RL bottomDragLinear
& + bottomDragLinear*dragFac
& .OR. bottomDragLinear.NE.0.) THEN
CALL WRITE_0D_RL( bottomDragLinear, INDEX_NONE,
SHELFICEDragLinear = bottomDragLinear
& + bottomDragLinear
& no_slip_bottom, bottomDragLinear, bottomDragQuadratic,
bottomDragLinear = 0.