_RL fracEnMelt
& fracEnMelt, fracEnFreez,
c1Mlt = fracEnMelt**rec_pLaw
c2Mlt = (1. _d 0 - fracEnMelt)**rec_pLaw
xxMlt = fracEnMelt -xxMlt
IF ( fracEnMelt.EQ.0. _d 0 ) THEN
IF ( hi.GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN
frace = fracEnMelt
frace = MIN( frace, fracEnMelt )
fracEnMelt = 0.4 _d 0
WRITE(iUnit,*) 'ThSI: fracEnMelt =',fracEnMelt
& fracEnMelt, fracEnFreez, hThinIce, hThickIce, hNewIceMax