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