_RL area_reg_sq, hice_reg_sq
hice_reg_sq = SEAICE_hice_reg * SEAICE_hice_reg
& + hice_reg_sq)
heffActual(I,J) = SQRT(tmpscal2 * tmpscal2 + hice_reg_sq)
& sqrt(HEFFpreTH(I,J)*HEFFpreTH(I,J) + hice_reg_sq)
hice_reg_sq = SEAICE_hice_reg**2
_RL slope, area_reg_sq, hice_reg_sq
hActual(i,j,k) = SQRT(tmp * tmp + hice_reg_sq)