CALL STREAMICE_GET_FP_ERR_OAD ( err_max_fp, myThid )
IF (err_max_fp .LE. streamice_nonlin_tol_fp) THEN
_RL err_max_fp, errmax
err_max_fp = streamice_nonlin_tol_fp * 10.
CALL STREAMICE_GET_VEL_FP_ERR ( err_max_fp, myThid )
& err_max_fp
_RL err_max, err_tempu, err_tempv, err_init, area, err_max_fp
err_max_fp = 0.