LOGICAL no_slip_shelfice
& no_slip_shelfice,
CALL WRITE_0D_L( no_slip_shelfice, INDEX_NONE,
no_slip_shelfice = no_slip_bottom
& no_slip_shelfice, SHELFICEDragLinear,
& ( no_slip_shelfice .OR. SHELFICEDragLinear.NE.zeroRL
IF (no_slip_shelfice) viscFac=2.
IF ( no_slip_shelfice ) THEN
IF ( no_slip_shelfice .AND. bottomVisc_pCell ) THEN