_RL hlyr
hlyr = hIce(i,j) * rec_nlyr
f1 = (hnew(i,j,1)-hlyr)/hlyr
qh2 = hlyr*qicen(i,j,2)
qicen(i,j,1) = qh1/hlyr
f1 = hnew(i,j,1)/hlyr
I hlyr, hnew, myThid )
f1 = (hnew(1)-hlyr)/hlyr
qh2 = hlyr*qicen(2)
qicen(1) = qh1/hlyr
f1 = hnew(1)/hlyr