& streamice_nonlin_tol_fp,
_RL streamice_nonlin_tol_fp
streamice_nonlin_tol_fp = 1.e-14
err_max_fp = streamice_nonlin_tol_fp * 10.
& (err_max_fp .GT. streamice_nonlin_tol_fp)) THEN