& sIceThickTime, sIceSnowHTime, sIceQ1Time, sIceQ2Time
_RL sIceSnowHTime(nSx,nSy)
U sIceSnowH_cpl, sIceSnowHTime, myThid )
sIceSnowHTime(bi,bj) = 1. _d 0
sIceSnowHTime (bi,bj) = 0.