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