& streamice_wgt_drift, streamice_wgt_surf,
_RL streamice_wgt_drift, streamice_wgt_surf
& streamice_wgt_surf * (S_obs(i,j,bi,bj)-
streamice_wgt_surf = 0.
& streamice_wgt_drift,streamice_wgt_surf,streamice_wgt_vel,