& visc_streamice_full, streamice_omega, streamice_basal_geom,
_RL streamice_basal_geom
streamice_basal_geom (i,j,bi,bj) = 1.0
& streamice_basal_geom(i,j,bi,bj) *