& SEAICE_no_slip, SEAICE_maskRHS,
IF ( SEAICE_no_slip ) noSlipFac = 1. _d 0
IF (.NOT.SEAICE_no_slip) THEN
SEAICE_no_slip = .FALSE.
& SEAICE_clipVelocities, SEAICE_maskRHS, SEAICE_no_slip,
CALL WRITE_0D_L ( SEAICE_no_slip, INDEX_NONE,