Index: /issm/trunk-jpl/src/m/classes/timeadaptation.m
===================================================================
--- /issm/trunk-jpl/src/m/classes/timeadaptation.m	(revision 21772)
+++ /issm/trunk-jpl/src/m/classes/timeadaptation.m	(revision 21772)
@@ -0,0 +1,90 @@
+%TIMESTEPPING Class definition
+%
+%   Usage:
+%      timeadaptation=timeadaptation();
+
+classdef timeadaptation
+	properties (SetAccess=public) 
+		start_time      = 0.;
+		final_time      = 0.;
+		time_step_min   = 0.;
+		time_step_max   = 0.;
+		cfl_coefficient = 0.;
+		interp_forcings = 1;
+	end
+	methods
+		function self = timeadaptation(varargin) % {{{
+			switch nargin
+				case 0
+					self=setdefaultparameters(self);
+				case 1
+					self=structtoobj(timeadaptation(),varargin{1});
+				otherwise
+					error('constructor not supported');
+			end
+		end % }}}
+		function self = setdefaultparameters(self) % {{{
+
+			%time between 2 time steps
+			self.time_step_min = 0.01;
+			self.time_step_max = 1.;
+
+			%final time
+			self.final_time=10.*self.time_step_max;
+
+			%default CFL coefficient
+			self.cfl_coefficient=0.5;
+
+			%should we interpolate forcings between timesteps?
+			self.interp_forcings=1;
+		end % }}}
+		function md = checkconsistency(self,md,solution,analyses) % {{{
+
+			md = checkfield(md,'fieldname','timestepping.start_time','numel',[1],'NaN',1,'Inf',1);
+			md = checkfield(md,'fieldname','timestepping.final_time','numel',[1],'NaN',1,'Inf',1);
+			md = checkfield(md,'fieldname','timestepping.time_step_min','numel',[1],'>=',0,'NaN',1,'Inf',1);
+			md = checkfield(md,'fieldname','timestepping.time_step_max','numel',[1],'>=',0,'NaN',1,'Inf',1);
+			if (self.time_step_min>self.time_step_max)
+				md = checkmessage(md,['base not equal to bed on grounded ice!']);
+			end
+			md = checkfield(md,'fieldname','timestepping.cfl_coefficient','numel',[1],'>',0,'<=',1);
+			md = checkfield(md,'fieldname','timestepping.interp_forcings','numel',[1],'values',[0 1]);
+			if self.final_time-self.start_time<0,
+				md = checkmessage(md,'timestepping.final_time should be larger than timestepping.start_time');
+			end 
+		end % }}}
+		function disp(self) % {{{
+			disp(sprintf('   timeadaptation parameters:'));
+
+			unit = 'yr';
+			fielddisplay(self,'start_time',['simulation starting time [' unit ']']);
+			fielddisplay(self,'final_time',['final time to stop the simulation [' unit ']']);
+			fielddisplay(self,'time_step_min',['minimum length of time step [' unit ']']);
+			fielddisplay(self,'time_step_max',['maximum length of time step [' unit ']']);
+			fielddisplay(self,'cfl_coefficient','coefficient applied to cfl condition');
+			fielddisplay(self,'interp_forcings','interpolate in time between requested forcing values ? (0 or 1)');
+
+		end % }}}
+		function marshall(self,prefix,md,fid) % {{{
+
+			scale = md.constants.yts;
+			WriteData(fid,prefix,'name','md.timestepping.type','data',2,'format','Integer');
+			WriteData(fid,prefix,'object',self,'class','timestepping','fieldname','start_time','format','Double','scale',scale);
+			WriteData(fid,prefix,'object',self,'class','timestepping','fieldname','final_time','format','Double','scale',scale);
+			WriteData(fid,prefix,'object',self,'class','timestepping','fieldname','time_step_min','format','Double','scale',scale);
+			WriteData(fid,prefix,'object',self,'class','timestepping','fieldname','time_step_max','format','Double','scale',scale);
+			WriteData(fid,prefix,'object',self,'class','timestepping','fieldname','cfl_coefficient','format','Double');
+			WriteData(fid,prefix,'object',self,'class','timestepping','fieldname','interp_forcings','format','Boolean');
+		end % }}}
+		function savemodeljs(self,fid,modelname) % {{{
+		
+			writejsdouble(fid,[modelname '.timeadaptation.start_time'],self.start_time);
+			writejsdouble(fid,[modelname '.timeadaptation.final_time'],self.final_time);
+			writejsdouble(fid,[modelname '.timeadaptation.time_step_min'],self.time_step_min);
+			writejsdouble(fid,[modelname '.timeadaptation.time_step_max'],self.time_step_max);
+			writejsdouble(fid,[modelname '.timeadaptation.cfl_coefficient'],self.cfl_coefficient);
+			writejsdouble(fid,[modelname '.timeadaptation.interp_forcings'],self.interp_forcings);
+
+		end % }}}
+	end
+end
Index: /issm/trunk-jpl/src/m/classes/timestepping.js
===================================================================
--- /issm/trunk-jpl/src/m/classes/timestepping.js	(revision 21771)
+++ /issm/trunk-jpl/src/m/classes/timestepping.js	(revision 21772)
@@ -54,4 +54,5 @@
 			scale = md.constants.yts;
 			
+			WriteData(fid,prefix,'name','md.timestepping.type','data',1,'format','Integer');
 			WriteData(fid,prefix,'object',this,'fieldname','start_time','format','Double','scale',scale);
 			WriteData(fid,prefix,'object',this,'fieldname','final_time','format','Double','scale',scale);
Index: /issm/trunk-jpl/src/m/classes/timestepping.m
===================================================================
--- /issm/trunk-jpl/src/m/classes/timestepping.m	(revision 21771)
+++ /issm/trunk-jpl/src/m/classes/timestepping.m	(revision 21772)
@@ -64,4 +64,5 @@
 
 			scale = md.constants.yts;
+			WriteData(fid,prefix,'name','md.timestepping.type','data',1,'format','Integer');
 			WriteData(fid,prefix,'object',self,'fieldname','start_time','format','Double','scale',scale);
 			WriteData(fid,prefix,'object',self,'fieldname','final_time','format','Double','scale',scale);
Index: /issm/trunk-jpl/src/m/classes/timestepping.py
===================================================================
--- /issm/trunk-jpl/src/m/classes/timestepping.py	(revision 21771)
+++ /issm/trunk-jpl/src/m/classes/timestepping.py	(revision 21772)
@@ -66,4 +66,5 @@
 
 		yts=md.constants.yts
+		WriteData(fid,prefix,'name','md.timestepping.type','data',1,'format','Integer');
 		WriteData(fid,prefix,'object',self,'fieldname','start_time','format','Double','scale',yts)
 		WriteData(fid,prefix,'object',self,'fieldname','final_time','format','Double','scale',yts)