Changeset 3533

Timestamp:

04/14/10 11:56:31 (15 years ago)

Author:

seroussi

Message:

fixed balancedthickness serial 2d

File:

• issm/trunk/src/m/solutions/jpl/balancedthickness_core.m (modified) (2 diffs)

issm/trunk/src/m/solutions/jpl/balancedthickness_core.m

@@ -13 +13 @@
         %Take only the first two dofs of m.parameters.u_g
         u_g=get(inputs,'velocity',[1 1 0 0]);
-        u_g=FieldDepthAverage(m.elements,m.nodes,m.loads,m.materials,m.parameters,u_g,'velocity');
+        u_g=FieldDepthAverage(m.elements,m.nodes,m.vertices,m.loads,m.materials,m.parameters,u_g,'velocity');
         inputs=add(inputs,'velocity_average',u_g,'doublevec',2,m.parameters.numberofnodes);
 
@@ -20 +20 @@
 
         displaystring(m.parameters.verbose,'\n%s',['extrude computed thickness on all layers:']);
-        results.h_g=FieldExtrude(m.elements,m.nodes,m.loads,m.materials,m.parameters,results.h_g,'thickness',0);
+        results.h_g=FieldExtrude(m.elements,m.nodes,m.vertices,m.loads,m.materials,m.parameters,results.h_g,'thickness',0);
 
 end %end function