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