_RL hThickIce
& hThinIce, hThickIce, hNewIceMax
aMlt = (c1Mlt+c2Mlt)/(hThickIce-hThinIce)
aFrz = (c1Frz+c2Frz)/(hThickIce-hThinIce)
aMlt = -1. _d 0 /(hThickIce-hThinIce)
hMlt = hThickIce
aFrz = -1. _d 0 /(hThickIce-hThinIce)
hFrz = hThickIce
IF (hi.GT.hThickIce) THEN
IF ( hi.GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN
hThickIce = 2.5 _d 0
WRITE(iUnit,*) 'ThSI: hThickIce =',hThickIce
& fracEnMelt, fracEnFreez, hThinIce, hThickIce, hNewIceMax