& SHELFICEDragLinear, SHELFICEDragQuadratic,
_RL SHELFICEDragQuadratic
SHELFICEDragQuadratic = UNSET_RL
IF ( SHELFICEDragQuadratic .EQ. UNSET_RL) THEN
SHELFICEDragQuadratic = shiCdrag
SHELFICEDragQuadratic = bottomDragQuadratic
IF ( SHELFICEDragQuadratic.EQ.0. _d 0 ) THEN
& SHELFICEDragQuadratic, SHELFICEselectDragQuadr,
& * SHELFICEDragQuadratic*SQRT(uSq)
& * SHELFICEDragQuadratic*SQRT(vSq)