_RL xxMlt, tmpMlt
xxMlt = aMlt*(hIce(i,j)-hMlt)
xxMlt = xxMlt**powerLaw
tmpMlt = xxMlt
xxMlt = xxMlt*tmpMlt
xxMlt = fracEnMelt -xxMlt
enFrcMlt(i,j) = MAX( 0. _d 0, MIN( xxMlt, 1. _d 0 ) )