Index: /issm/trunk-jpl/src/m/classes/mesh.m
===================================================================
--- /issm/trunk-jpl/src/m/classes/mesh.m	(revision 16291)
+++ /issm/trunk-jpl/src/m/classes/mesh.m	(revision 16292)
@@ -181,9 +181,10 @@
 		end % }}}
 		function marshall(obj,md,fid) % {{{
+			WriteData(fid,'enum',MeshTypeEnum(),'data',StringToEnum(['Mesh' meshtype(obj)]),'format','Integer');
+			WriteData(fid,'object',obj,'fieldname','dimension','format','Integer');
 			WriteData(fid,'object',obj,'fieldname','x','format','DoubleMat','mattype',1);
 			WriteData(fid,'object',obj,'fieldname','y','format','DoubleMat','mattype',1);
 			WriteData(fid,'object',obj,'fieldname','z','format','DoubleMat','mattype',1);
 			WriteData(fid,'object',obj,'fieldname','elements','format','DoubleMat','mattype',2);
-			WriteData(fid,'object',obj,'fieldname','dimension','format','Integer');
 			WriteData(fid,'object',obj,'fieldname','numberoflayers','format','Integer');
 			WriteData(fid,'object',obj,'fieldname','numberofelements','format','Integer');
@@ -200,4 +201,11 @@
 			WriteData(fid,'object',obj,'fieldname','numberofelements2d','format','Integer');
 		end % }}}
+		function type = meshtype(obj) % {{{
+			if obj.dimension==2,
+				type = '2Dhorizontal';
+			else
+				type = '3D';
+			end
+		end % }}}
 	end
 end
Index: /issm/trunk-jpl/src/m/classes/mesh.py
===================================================================
--- /issm/trunk-jpl/src/m/classes/mesh.py	(revision 16291)
+++ /issm/trunk-jpl/src/m/classes/mesh.py	(revision 16292)
@@ -56,5 +56,4 @@
 		#set defaults
 		self.setdefaultparameters()
-
 		#}}}
 	def __repr__(self): # {{{
@@ -163,5 +162,13 @@
 		return md
 	# }}}
+	def meshtype(self): # {{{
+
+		if self.dimension==2:
+			return "2Dhorizontal"
+		else:
+			return "3D"
+	#}}}
 	def marshall(self,md,fid):    # {{{
+		WriteData(fid,'enum',MeshTypeEnum(),'data',StringToEnum("Mesh"+self.meshtype())[0],'format','Integer');
 		WriteData(fid,'object',self,'fieldname','x','format','DoubleMat','mattype',1)
 		WriteData(fid,'object',self,'fieldname','y','format','DoubleMat','mattype',1)