& streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol,
_RL streamice_cg_tol, streamice_nonlin_tol
CALL WRITE_0D_RL( streamice_nonlin_tol, INDEX_NONE,
streamice_nonlin_tol = 1e-6
& streamice_vel_update,streamice_cg_tol,streamice_nonlin_tol,
IF (err_max .LE. streamice_nonlin_tol * err_init) THEN