Index: /issm/trunk-jpl/src/m/classes/slr.m
===================================================================
--- /issm/trunk-jpl/src/m/classes/slr.m	(revision 24959)
+++ /issm/trunk-jpl/src/m/classes/slr.m	(revision 24960)
@@ -29,9 +29,8 @@
 		geodetic               = 0; %compute geodetic SLR? (in addition to steric?)
 		degacc                 = 0;
-		loop_increment         = 0;
 		horiz                  = 0;
 		Ngia                   = NaN;
 		Ugia                   = NaN;
-		eartharea              = 4*pi*planetradius('earth')^2; 
+		planetradius           = planetradius('earth');
 
 		requested_outputs      = {};
@@ -55,5 +54,4 @@
 		%maximum of non-linear iterations.
 		self.maxiter=5;
-		self.loop_increment=200;
 
 		%computational flags: 
@@ -95,4 +93,7 @@
 		%horizontal displacement?  (not by default)
 		self.horiz=0;
+
+		%earth area
+		self.planetradius= planetradius('earth');
 		
 		end % }}}
@@ -123,5 +124,4 @@
 			md = checkfield(md,'fieldname','slr.degacc','size',[1 1],'>=',1e-10);
 			md = checkfield(md,'fieldname','slr.requested_outputs','stringrow',1);
-			md = checkfield(md,'fieldname','slr.loop_increment','NaN',1,'Inf',1,'>=',1);
 			md = checkfield(md,'fieldname','slr.horiz','NaN',1,'Inf',1,'values',[0 1]);
 			md = checkfield(md,'fieldname','slr.Ngia','NaN',1,'Inf',1,'size',[md.mesh.numberofvertices 1]);
@@ -181,5 +181,4 @@
 			fielddisplay(self,'Ngia','rate of viscous (GIA) geoid expansion (in mm/yr)'); 
 			fielddisplay(self,'Ugia','rate of viscous (GIA) bedrock uplift (in mm/yr)'); 
-			fielddisplay(self,'loop_increment','vector assembly (in the convolution) framentation');
 			fielddisplay(self,'geodetic','compute geodetic SLR? ( in addition to steric?) default 0');
 			fielddisplay(self,'geodetic_run_frequency','how many time steps we skip before we run SLR solver during transient (default: 1)');
@@ -220,8 +219,7 @@
 			WriteData(fid,prefix,'object',self,'fieldname','degacc','format','Double');
 			WriteData(fid,prefix,'object',self,'fieldname','transitions','format','MatArray');
-			WriteData(fid,prefix,'object',self,'fieldname','loop_increment','format','Integer');
 			WriteData(fid,prefix,'object',self,'fieldname','horiz','format','Integer');
 			WriteData(fid,prefix,'object',self,'fieldname','geodetic','format','Integer');
-			WriteData(fid,prefix,'object',self,'fieldname','eartharea','format','Double');
+			WriteData(fid,prefix,'object',self,'fieldname','planetradius','format','Double');
 			
 			%process requested outputs