err_max_fp = streamice_nonlin_tol_fp * 10.
& (err_max_fp .GT. streamice_nonlin_tol_fp)) THEN
err_max_fp = 0. _d 0
IF (err_tempv .ge. err_max_fp) err_max_fp = err_tempv
CALL GLOBAL_MAX_R8 (err_max_fp, myThid)
& err_max_fp
_RL err_max, err_tempu, err_tempv, err_init, area, err_max_fp