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