& SHELFICEDragLinear, SHELFICEDragQuadratic
_RL SHELFICEDragQuadratic
& SHELFICEDragLinear, SHELFICEDragQuadratic,
SHELFICEDragQuadratic = bottomDragQuadratic
& *SHELFICEDragQuadratic*sqrt(KE(i,j)+KE(i-1,j))