EnergyToMeltSnowAndIce(I,J) =
& EnergyToMeltSnowAndIce(I,J),
& EnergyToMeltSnowAndIce(I,J) -
_RL EnergyToMeltSnowAndIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy)