& SEAICE_doOpenWaterGrowth, SEAICE_doOpenWaterMelt,
IF ( SEAICE_doOpenWaterMelt .AND.
IF (SEAICE_doOpenWaterMelt) facOpenMelt = 1. _d 0
SEAICE_doOpenWaterMelt=.FALSE.
CALL WRITE_0D_L ( SEAICE_doOpenWaterMelt , INDEX_NONE,