Index: /issm/trunk-jpl/src/m/classes/friction.m
===================================================================
--- /issm/trunk-jpl/src/m/classes/friction.m	(revision 23620)
+++ /issm/trunk-jpl/src/m/classes/friction.m	(revision 23621)
@@ -24,5 +24,5 @@
 					self.effective_pressure=project3d(md,'vector',self.effective_pressure,'type','node','layer',1);
 				case 4
-					error('not implemented yet');
+					self.effective_pressure=project3d(md,'vector',self.effective_pressure,'type','node','layer',1);
 				otherwise
 					error('not supported yet');		
@@ -61,5 +61,5 @@
 					md = checkfield(md,'fieldname','friction.effective_pressure','NaN',1,'Inf',1,'timeseries',1);
 				case 4
-					error('not implemented yet');
+				
 				otherwise
 					error('not supported yet');		
@@ -72,5 +72,5 @@
 			fielddisplay(self,'q','q exponent');
 			fielddisplay(self,'effective_pressure','Effective Pressure for the forcing if not coupled [Pa]');
-			fielddisplay(self,'coupling','Coupling flag 0: uniform sheet (negative pressure ok, default), 1: ice pressure only, 2: water pressure assuming uniform sheet (no negative pressure), 3: use provided effective_pressure, 4: used coupled model (not implemented yet)');
+			fielddisplay(self,'coupling','Coupling flag 0: uniform sheet (negative pressure ok, default), 1: ice pressure only, 2: water pressure assuming uniform sheet (no negative pressure), 3: use provided effective_pressure, 4: use coupled model (not implemented yet)');
 		end % }}}
 		function marshall(self,prefix,md,fid) % {{{
@@ -89,5 +89,5 @@
 					WriteData(fid,prefix,'class','friction','object',self,'fieldname','effective_pressure','format','DoubleMat','mattype',1,'timeserieslength',md.mesh.numberofvertices+1,'yts',md.constants.yts);
 				case 4
-					error('not implemented yet');
+					WriteData(fid,prefix,'class','friction','object',self,'fieldname','effective_pressure','format','DoubleMat','mattype',1,'timeserieslength',md.mesh.numberofvertices+1,'yts',md.constants.yts);
 				otherwise
 					error('not supported yet');