& SHELFICEDragLinear, SHELFICEDragQuadratic,
_RL SHELFICEDragQuadratic
SHELFICEDragQuadratic = UNSET_RL
IF ( SHELFICEDragQuadratic .EQ. UNSET_RL) THEN
SHELFICEDragQuadratic = shiCdrag
SHELFICEDragQuadratic = bottomDragQuadratic
& *SHELFICEDragQuadratic*sqrt(KE(i,j)+KE(i-1,j))