max_icfl = 1.e-20
if (loc_icfl.gt.max_icfl) then
max_icfl = loc_icfl
CALL GLOBAL_MAX_R8 (max_icfl, myThid)
& streamice_cfl_factor / max_icfl,
_RL thick_bd, uflux, vflux, max_icfl, loc_icfl