Index: /issm/trunk/src/m/classes/public/setelementstype.m
===================================================================
--- /issm/trunk/src/m/classes/public/setelementstype.m	(revision 1681)
+++ /issm/trunk/src/m/classes/public/setelementstype.m	(revision 1682)
@@ -128,5 +128,5 @@
 %icefront for stokes
 if ~isnan(md.segmentonneumann_diag),
-	md.segmentonneumann_diag_stokes=md.segmentonneumann_diag(find(md.elements_type(md.segmentonneumann_diag(:,end),2)),:);
+	md.segmentonneumann_diag_stokes=md.segmentonneumann_diag(find(md.elements_type(md.segmentonneumann_diag(:,end),2)==StokesFormulationEnum()),:);
 end