Changeset 22891

Timestamp:

07/02/18 10:31:57 (7 years ago)

Author:

Eric.Larour

Message:

CHG: noearth option.

File:

• issm/branches/trunk-larour-NatGeoScience2016/src/m/classes/sealevelmodel.m (modified) (3 diffs)

issm/branches/trunk-larour-NatGeoScience2016/src/m/classes/sealevelmodel.m

@@ -159 +159 @@
                         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 +168 @@
                                 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 +178 @@
                         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 % }}}