source: issm/oecreview/Archive/21337-21723/ISSM-21630-21631.diff@ 21726

Index: ../trunk-jpl/src/m/classes/calvingdev.m
===================================================================
--- ../trunk-jpl/src/m/classes/calvingdev.m     (revision 21630)
+++ ../trunk-jpl/src/m/classes/calvingdev.m     (revision 21631)
@@ -33,9 +33,6 @@
                end % }}}
                function self = setdefaultparameters(self) % {{{
 
-                       %Proportionality coefficient in Pi model
-                       %self.coeff=2e13;
-
                        %Default sigma max
                        self.stress_threshold_groundedice = 1e6;
                        self.stress_threshold_floatingice = 150e3;
@@ -58,9 +55,9 @@
                function marshall(self,prefix,md,fid) % {{{
                        yts=md.constants.yts;
                        WriteData(fid,prefix,'name','md.calving.law','data',2,'format','Integer');
-                       WriteData(fid,prefix,'object',self,'fieldname','stress_threshold_groundedice','format','DoubleMat','mattype',1);
-                       WriteData(fid,prefix,'object',self,'fieldname','stress_threshold_floatingice','format','DoubleMat','mattype',1);
-                       WriteData(fid,prefix,'object',self,'fieldname','meltingrate','format','DoubleMat','mattype',1,'timeserieslength',md.mesh.numberofvertices+1,'scale',1./yts);
+                       WriteData(fid,prefix,'object',self,'fieldname','stress_threshold_groundedice','format','Double');
+                       WriteData(fid,prefix,'object',self,'fieldname','stress_threshold_floatingice','format','Double');
+                       WriteData(fid,prefix,'object',self,'fieldname','meltingrate','format','DoubleMat','mattype',1,'timeserieslength',md.mesh.numberofvertices+1,'yts',md.constants.yts,'scale',1./yts);
                end % }}}
        end
 end