_RL SEAICEsnowFracRidge
& SEAICEsnowFracRidge
& *(1. _d 0 - SEAICEsnowFracRidge)
ridgingHsnw(i,j) = ridgingHsnw(i,j) * SEAICEsnowFracRidge
& +volFraction(i,j)*ridgingHsnw(i,j)*SEAICEsnowFracRidge
& SEAICEridgingIterMax, SEAICEsimpleRidging, SEAICEsnowFracRidge,
SEAICEsnowFracRidge = 0.5 _d 0
CALL WRITE_0D_RL( SEAICEsnowFracRidge ,INDEX_NONE,