& streamice_smooth_gl_width,
_RL streamice_smooth_gl_width
& streamice_smooth_gl_width)
IF (streamice_smooth_gl_width.gt.0.) THEN
streamice_smooth_gl_width = 0.0