err_max = err_init
IF ((err_max .GT. streamice_nonlin_tol * err_init) .and.
err_max = 0. _d 0
IF (err_tempv .ge. err_max) THEN
err_max = err_tempv
CALL GLOBAL_MAX_R8 (err_max, myThid)
& err_max/err_init
IF (err_maxerr_lastchange*1.e-2 .and.
err_lastchange = err_max
_RL err_max, err_tempu, err_tempv, err_init, area, err_max_fp