Index: /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 16823)
+++ /issm/trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 16824)
@@ -8515,5 +8515,5 @@
 			drag_input->GetInputValue(&drag,gauss);
 
-			/*No ref...*/
+			/*Payne 1995 (m = 1, B = 5e-3/yts = 1.58e-10  m/s/Pa*/
 			ub=-1.58*1.e-10*rho_ice*gravity*thickness*slope[0];
 			vb=-1.58*1.e-10*rho_ice*gravity*thickness*slope[1];
Index: /issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
===================================================================
--- /issm/trunk-jpl/src/c/classes/Elements/Tria.cpp	(revision 16823)
+++ /issm/trunk-jpl/src/c/classes/Elements/Tria.cpp	(revision 16824)
@@ -4255,5 +4255,5 @@
 		slope2=slope[0]*slope[0]+slope[1]*slope[1];
 
-		/*No ref...*/
+		/*Payne 1995 (m = 1, B = 5e-3/yts = 1.58e-10  m/s/Pa*/
 		ub=-1.58*1.e-10*rho_ice*gravity*thickness*slope[0];
 		vb=-1.58*1.e-10*rho_ice*gravity*thickness*slope[1];