& useHibler79IceStrength, SEAICEsimpleRidging,
IF ( SEAICEsimpleRidging ) THEN
& SEAICEridgingIterMax, SEAICEsimpleRidging, SEAICEsnowFracRidge,
SEAICEsimpleRidging = .TRUE.
CALL WRITE_0D_L ( SEAICEsimpleRidging, INDEX_NONE,