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