& SEAICErestoreUnderIce, SEAICE_growMeltByConv,
IF (.NOT.SEAICE_growMeltByConv) THEN
SEAICE_growMeltByConv = .FALSE.
CALL WRITE_0D_L ( SEAICE_growMeltByConv , INDEX_NONE,