& no_slip_shelfice,
LOGICAL no_slip_shelfice
& useISOMIPTD, no_slip_shelfice,
no_slip_shelfice = no_slip_bottom
IF (no_slip_shelfice) viscFac=1.