Index: ../trunk-jpl/src/c/classes/Elements/Penta.cpp
===================================================================
--- ../trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 16356)
+++ ../trunk-jpl/src/c/classes/Elements/Penta.cpp	(revision 16357)
@@ -4874,8 +4874,10 @@
 		/*Force temperature between [Tpmp-50 Tpmp] to disable penalties*/
 		IssmDouble pressure[numdof];
 		GetInputListOnVertices(&pressure[0],PressureEnum);
-		if(values[i]>matpar->TMeltingPoint(pressure[i]))     values[i]=matpar->TMeltingPoint(pressure[i]);
-		if(values[i]<matpar->TMeltingPoint(pressure[i])-50.) values[i]=matpar->TMeltingPoint(pressure[i])-50.;
+		for(i=0;i<numdof;i++){
+			if(values[i]>matpar->TMeltingPoint(pressure[i]))     values[i]=matpar->TMeltingPoint(pressure[i]);
+			if(values[i]<matpar->TMeltingPoint(pressure[i])-50.) values[i]=matpar->TMeltingPoint(pressure[i])-50.;
+		}
 	}