& SHELFICEDragLinear, SHELFICEDragQuadratic,
_RL SHELFICEDragLinear
SHELFICEDragLinear = bottomDragLinear
& no_slip_shelfice, SHELFICEDragLinear,
IF ( SHELFICEDragLinear.NE.zeroRL ) THEN
& * SHELFICEDragLinear
& ( no_slip_shelfice .OR. SHELFICEDragLinear.NE.zeroRL