& PotSnowMeltFromSurf(I,J),
_RL PotSnowMeltFromSurf (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
PotSnowMeltFromSurf (I,J) = 0.0
PotSnowMeltFromSurf(I,J) =
IF (PotSnowMeltFromSurf(I,J) .GE.
SnowMeltFromSurface(I,J)=PotSnowMeltFromSurf(I,J)