& sIceFrac_cpl, sIceFracTime
_RL sIceFracTime (nSx,nSy)
U sIceFrac_cpl, sIceFracTime, myThid )
sIceFracTime(bi,bj) = 1. _d 0
sIceFracTime (bi,bj) = 0.