Index: /issm/trunk/src/c/objects/Elements/Penta.cpp
===================================================================
--- /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 5057)
+++ /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 5058)
@@ -3506,5 +3506,5 @@
 
 			//compute ub
-			constant_part=-0*1.58*pow((double)10.0,-(double)10.0)*rho_ice*gravity*thickness;
+			constant_part=-1.58*pow((double)10.0,-(double)10.0)*rho_ice*gravity*thickness;
 			ub=constant_part*slope[0];
 			vb=constant_part*slope[1];