INTEGER SEAICEridgingIterMax
& SEAICEpartFunc, SEAICEredistFunc, SEAICEridgingIterMax,
IF ( doRidgeAgain .AND. n.GE.SEAICEridgingIterMax ) THEN
& SEAICEridgingIterMax, ' iterations.'
doRidgeAgain = doRidgeAgain .AND. n.LT.SEAICEridgingIterMax
& SEAICEridgingIterMax, SEAICEsimpleRidging, SEAICEsnowFracRidge,
SEAICEridgingIterMax = 10