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