Index: ../trunk-jpl/src/c/analyses/EnthalpyAnalysis.cpp
===================================================================
--- ../trunk-jpl/src/c/analyses/EnthalpyAnalysis.cpp	(revision 18695)
+++ ../trunk-jpl/src/c/analyses/EnthalpyAnalysis.cpp	(revision 18696)
@@ -1002,14 +1002,10 @@
 				// cold, dry base: apply basal surface forcing
 				for(i=0;i<3;i++) vec_heatflux[i]=0.;
 				break;
-			case 1:
-				// cold, wet base: keep at pressure melting point 
-			case 2:
-				// temperate, thin refreezing base: release spc
-
-			case 3:
-				// temperate, thin melting base: set spc
-				enthalpies[vertexdown]=element->PureIceEnthalpy(pressures[vertexdown]); 
+			case 1: case 2: case 3: 
+				// case 1 : cold, wet base: keep at pressure melting point 
+				// case 2: temperate, thin refreezing base: release spc
+				// case 3: temperate, thin melting base: set spc
 				enthalpy_input->GetInputDerivativeValue(&d1enthalpy[0],xyz_list,gauss);
 				for(i=0;i<3;i++) vec_heatflux[i]=-kappa*d1enthalpy[i];
 				break;
