Changeset 24736

Timestamp:

04/24/20 18:04:23 (5 years ago)

Author:

schlegel

Message:

CHG: turn off evap and fluxes with constrainsurfaceT flag

Location:

issm/trunk-jpl

Files:

• src/c/modules/SurfaceMassBalancex/Gembx.cpp (modified) (2 diffs)
• test/Archives/Archive253.arch (modified) ( previous)

issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp

@@ -937 +937 @@
 
                 //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
@@ -947 +947 @@
 
                 // 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]