& streamice_ctrl_flux_id
INTEGER streamice_ctrl_flux_id (n_fluxes_max)
IF (maskval.eq.streamice_ctrl_flux_id(k)) THEN
& streamice_ctrl_flux_id,
streamice_ctrl_flux_id(iarr) = 0