Index: /issm/branches/trunk-larour-SLPS2022/src/c/cores/cores.h
===================================================================
--- /issm/branches/trunk-larour-SLPS2022/src/c/cores/cores.h	(revision 27217)
+++ /issm/branches/trunk-larour-SLPS2022/src/c/cores/cores.h	(revision 27218)
@@ -47,4 +47,5 @@
 void transient_core(FemModel* femmodel);
 void transient_precore(FemModel* femmodel);
+void transient_postcore(FemModel* femmodel);
 void dakota_core(FemModel* femmodel);
 void ad_core(FemModel* femmodel);
@@ -63,4 +64,5 @@
 void sealevelchange_core(FemModel* femmodel);
 void sealevelchange_initialgeometry(FemModel* femmodel);
+void sealevelchange_finalize(FemModel* femmodel);
 SealevelGeometry* sealevelchange_geometry(FemModel* femmodel);
 #endif
Index: /issm/branches/trunk-larour-SLPS2022/src/c/cores/sealevelchange_core.cpp
===================================================================
--- /issm/branches/trunk-larour-SLPS2022/src/c/cores/sealevelchange_core.cpp	(revision 27217)
+++ /issm/branches/trunk-larour-SLPS2022/src/c/cores/sealevelchange_core.cpp	(revision 27218)
@@ -704,4 +704,17 @@
 
 	return slgeom;
+
+}/*}}}*/
+void              sealevelchange_finalize(FemModel* femmodel) {  /*{{{*/
+
+	BarystaticContributions* barycontrib=NULL;
+	GenericParam<BarystaticContributions*>* barycontribparam=NULL;
+	
+	/*Erase barycontrib object: */
+	barycontribparam = xDynamicCast<GenericParam<BarystaticContributions*>*>(femmodel->parameters->FindParamObject(BarystaticContributionsEnum));
+	barycontrib=barycontribparam->GetParameterValue();
+	delete barycontrib;
+
+	return;
 
 }/*}}}*/
Index: /issm/branches/trunk-larour-SLPS2022/src/c/cores/transient_core.cpp
===================================================================
--- /issm/branches/trunk-larour-SLPS2022/src/c/cores/transient_core.cpp	(revision 27217)
+++ /issm/branches/trunk-larour-SLPS2022/src/c/cores/transient_core.cpp	(revision 27218)
@@ -126,4 +126,9 @@
 
 	if(!iscontrol || !isautodiff) femmodel->RequestedDependentsx();
+
+	/*finalize:*/
+	transient_postcore(femmodel);
+
+
 }/*}}}*/
 void transient_step(FemModel* femmodel){/*{{{*/
@@ -286,4 +291,14 @@
 
 }/*}}}*/
+void transient_postcore(FemModel* femmodel){/*{{{*/
+
+	bool       isslc;
+	femmodel->parameters->FindParam(&isslc,TransientIsslcEnum);
+
+	#if defined(_HAVE_SEALEVELCHANGE_)
+	if(isslc) sealevelchange_finalize(femmodel);
+	#endif
+	
+}/*}}}*/
 
 #ifdef _HAVE_CODIPACK_