INTEGER streamice_ctrl_flux_id (n_fluxes_max)
_RL streamice_ctrl_flux_scaleVel (n_fluxes_max, n_epochs_max)
INTEGER n_fluxes_max
_RL streamice_flux_scale_current (n_fluxes_max)
DO k=1,n_fluxes_max