& SEAICEuseFluxForm, useHB87stressCoupling,
useHB87stressCoupling = .FALSE.
& useHB87stressCoupling,
CALL WRITE_0D_L ( useHB87stressCoupling, INDEX_NONE,