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