Index: /issm/trunk-jpl/src/c/classes/Elements/Element.h
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Element.h	(revision 15961)
+++ /issm/trunk-jpl/src/c/classes/Elements/Element.h	(revision 15962)
@@ -140,5 +140,5 @@
 
 		#ifdef _HAVE_GROUNDINGLINE_
-		virtual void   MigrateGroundingLine(IssmDouble* old_floating_ice,IssmDouble* sheet_ungrounding)=0;
+		virtual void   MigrateGroundingLine(IssmDouble* sheet_ungrounding)=0;
 		virtual void   PotentialUngrounding(Vector<IssmDouble>* potential_sheet_ungrounding)=0;
 		virtual int    UpdatePotentialUngrounding(IssmDouble* potential_sheet_ungrounding,Vector<IssmDouble>* vec_nodes_on_iceshelf,IssmDouble* nodes_on_iceshelf)=0;
Index: /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 15961)
+++ /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 15962)
@@ -11200,5 +11200,5 @@
 #ifdef _HAVE_GROUNDINGLINE_
 /*FUNCTION Penta::MigrateGroundingLine{{{*/
-void  Penta::MigrateGroundingLine(IssmDouble* old_floating_ice,IssmDouble* sheet_ungrounding){
+void  Penta::MigrateGroundingLine(IssmDouble* sheet_ungrounding){
 
 	int        i,migration_style;
Index: /issm/trunk-jpl/src/c/classes/Elements/Penta.h
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Penta.h	(revision 15961)
+++ /issm/trunk-jpl/src/c/classes/Elements/Penta.h	(revision 15962)
@@ -170,5 +170,5 @@
 
 		#ifdef _HAVE_GROUNDINGLINE_
-		void   MigrateGroundingLine(IssmDouble* old_floating_ice,IssmDouble* sheet_ungrounding);
+		void   MigrateGroundingLine(IssmDouble* sheet_ungrounding);
 		void   PotentialUngrounding(Vector<IssmDouble>* potential_sheet_ungrounding);
 		int    UpdatePotentialUngrounding(IssmDouble* potential_sheet_ungrounding,Vector<IssmDouble>* vec_nodes_on_iceshelf,IssmDouble* nodes_on_iceshelf);
Index: /issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Tria.cpp	(revision 15961)
+++ /issm/trunk-jpl/src/c/classes/Elements/Tria.cpp	(revision 15962)
@@ -7312,5 +7312,5 @@
 #ifdef _HAVE_GROUNDINGLINE_
 /*FUNCTION Tria::MigrateGroundingLine{{{*/
-void  Tria::MigrateGroundingLine(IssmDouble* old_floating_ice,IssmDouble* sheet_ungrounding){
+void  Tria::MigrateGroundingLine(IssmDouble* sheet_ungrounding){
 
 	int        i,migration_style;
Index: /issm/trunk-jpl/src/c/classes/Elements/Tria.h
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Tria.h	(revision 15961)
+++ /issm/trunk-jpl/src/c/classes/Elements/Tria.h	(revision 15962)
@@ -174,5 +174,5 @@
 		#ifdef _HAVE_GROUNDINGLINE_
 		void   PotentialUngrounding(Vector<IssmDouble>* potential_sheet_ungrounding);
-		void   MigrateGroundingLine(IssmDouble* oldfloating,IssmDouble* sheet_ungrounding);
+		void   MigrateGroundingLine(IssmDouble* sheet_ungrounding);
 		int    UpdatePotentialUngrounding(IssmDouble* vertices_potentially_ungrounding,Vector<IssmDouble>* vec_nodes_on_iceshelf,IssmDouble* nodes_on_iceshelf);
 		#endif
Index: /issm/trunk-jpl/src/c/modules/GroundinglineMigrationx/GroundinglineMigrationx.cpp
===================================================================
--- /issm/trunk-jpl/src/c/modules/GroundinglineMigrationx/GroundinglineMigrationx.cpp	(revision 15961)
+++ /issm/trunk-jpl/src/c/modules/GroundinglineMigrationx/GroundinglineMigrationx.cpp	(revision 15962)
@@ -13,6 +13,4 @@
 	IssmDouble         *vertices_potentially_ungrounding = NULL;
 	IssmDouble         *vertices_ungrounding             = NULL;
-	IssmDouble         *old_floatingice                  = NULL;
-	Vector<IssmDouble> *vec_old_floatingice              = NULL;
 	Element            *element                          = NULL;
 
@@ -42,19 +40,13 @@
 	}
 
-	/*Create vector with vertices initially floating and serialize*/
-	vec_old_floatingice=CreateNodesOnFloatingIce(nodes,analysis_type);
-	old_floatingice=vec_old_floatingice->ToMPISerial();
-
 	/*Migrate grounding line : */
 	for(int i=0;i<elements->Size();i++){
 		element=dynamic_cast<Element*>(elements->GetObjectByOffset(i));
-		element->MigrateGroundingLine(old_floatingice,vertices_ungrounding);
+		element->MigrateGroundingLine(vertices_ungrounding);
 	}
 
 	/*free ressouces: */
-	delete vec_old_floatingice;
 	xDelete<IssmDouble>(vertices_potentially_ungrounding);
 	xDelete<IssmDouble>(vertices_ungrounding);
-	xDelete<IssmDouble>(old_floatingice);
 }