Index: ../trunk-jpl/test/Archives/Archive253.arch
===================================================================
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Index: ../trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp
===================================================================
--- ../trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp	(revision 24735)
+++ ../trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp	(revision 24736)
@@ -936,8 +936,8 @@
 		// new grid point temperature
 
 		//SW penetrates surface
-		for(int j=0;j<m;j++) T[j] = T[j] + dT_sw[j];
-		T[0] = T[0] + dT_dlw + dT_ulw + dT_turb;
+		if(!isconstrainsurfaceT) for(int j=0;j<m;j++) T[j] = T[j] + dT_sw[j];
+		if(!isconstrainsurfaceT) T[0] = T[0] + dT_dlw + dT_ulw + dT_turb;
 
 		// temperature diffusion
 		for(int j=0;j<m;j++) T0[1+j]=T[j];
@@ -946,7 +946,7 @@
 		for(int j=0;j<m;j++) T[j] = (Np[j] * T[j]) + (Nu[j] * Tu[j]) + (Nd[j] * Td[j]);
 
 		// calculate cumulative evaporation (+)/condensation(-)
-		EC = EC + (EC_day/dts)*dt;
+		if(!isconstrainsurfaceT) EC = EC + (EC_day/dts)*dt;
 
 		/* CHECK FOR ENERGY (E) CONSERVATION [UNITS: J]
 		//energy flux across lower boundary (energy supplied by underling ice)