& SEAICE_clipVelocities, useHB87stressCoupling,
useHB87stressCoupling = .FALSE.
& useHB87stressCoupling, SEAICEuseFlooding,
CALL WRITE_0D_L ( useHB87stressCoupling, INDEX_NONE,