Index: /issm/branches/trunk-larour-NatGeoScience2016/src/m/classes/sealevelmodel.m
===================================================================
--- /issm/branches/trunk-larour-NatGeoScience2016/src/m/classes/sealevelmodel.m	(revision 22890)
+++ /issm/branches/trunk-larour-NatGeoScience2016/src/m/classes/sealevelmodel.m	(revision 22891)
@@ -159,5 +159,8 @@
 			disp(sprintf('Earth: %i/%g',mvi,timei));
 		end % }}}
-		function self=homogeneize(self) % {{{
+		function self=homogeneize(self,noearth) % {{{
+			if nargin==1,
+				noearth=0;
+			end
 			mintimestep=Inf;
 			for  i=1:length(self.icecaps),
@@ -165,5 +168,7 @@
 				mintimestep=min(mintimestep, length(ic.results.TransientSolution));
 			end
-			mintimestep=min(mintimestep, length(self.earth.results.TransientSolution));
+			if ~noearth,
+				mintimestep=min(mintimestep, length(self.earth.results.TransientSolution));
+			end
 			
 			for  i=1:length(self.icecaps),
@@ -173,5 +178,7 @@
 			end
 			ic=self.earth;
-			ic.results.TransientSolution=ic.results.TransientSolution(1:mintimestep);
+			if ~noearth,
+				ic.results.TransientSolution=ic.results.TransientSolution(1:mintimestep);
+			end
 			self.earth=ic;
 		end % }}}