Index: /issm/trunk-jpl/src/m/plot/plotgemb.m
===================================================================
--- /issm/trunk-jpl/src/m/plot/plotgemb.m	(revision 20563)
+++ /issm/trunk-jpl/src/m/plot/plotgemb.m	(revision 20564)
@@ -38,8 +38,29 @@
 		%build vertical values: 
 		nz=length(dz); 
+		%for j=1:nz, 
+		%	patch([time-deltat/2 ;time+deltat/2; time+deltat/2; time-deltat/2],[z0; z0; z0+dz(j); z0+dz(j)],[T(j);T(j);T(j);T(j)]);
+		%	z0=z0+dz(j);
+		%end
+
+		xA=(time-deltat/2)*ones(nz,1);
+		xB=(time+deltat/2)*ones(nz,1);
+		xC=(time+deltat/2)*ones(nz,1);
+		xD=(time-deltat/2)*ones(nz,1);
+
+		zA=zeros(nz,1);
+		zB=zeros(nz,1);
+		zC=zeros(nz,1);
+		zD=zeros(nz,1);
+		
 		for j=1:nz, 
-			patch([time-deltat/2 ;time+deltat/2; time+deltat/2; time-deltat/2],[z0; z0; z0+dz(j); z0+dz(j)],[T(j);T(j);T(j);T(j)]);
+			zA(j)=z0;
+			zB(j)=z0;
+			zC(j)=z0+dz(j);
+			zD(j)=z0+dz(j);
 			z0=z0+dz(j);
 		end
+
+		patch([xA,xB,xC,xD]',[zA,zB,zC,zD]',[T,T,T,T]');
+
 		if i>=maxstep,
 			break;