& SnowMeltFromSurface(I,J),
_RL SnowMeltFromSurface (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
SnowMeltFromSurface (I,J) = 0.0
SnowMeltFromSurface(I,J) = HSNOW_ACTUAL(I,J)
& SnowMeltFromSurface(I,J)/ SEAICE_deltaTtherm
SnowMeltFromSurface(I,J)=PotSnowMeltFromSurf(I,J)