& useHibler79IceStrength, SEAICEsimpleRidging,
IF ( useHibler79IceStrength ) THEN
& useHibler79IceStrength, SEAICEpartFunc, SEAICEredistFunc,
useHibler79IceStrength= .TRUE.
IF ( .NOT.useHibler79IceStrength ) THEN
useHibler79IceStrength = .TRUE.
CALL WRITE_0D_L ( useHibler79IceStrength, INDEX_NONE,