INTEGER SEAICEpartFunc, SEAICEredistFunc
& SEAICEpartFunc, SEAICEredistFunc, SEAICEridgingIterMax,
IF ( SEAICEredistFunc .EQ. 0 ) THEN
ELSEIF ( SEAICEredistFunc .EQ. 1 ) THEN
& useHibler79IceStrength, SEAICEpartFunc, SEAICEredistFunc,
SEAICEredistFunc = 0
CALL WRITE_0D_I (SEAICEredistFunc,INDEX_NONE,