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