Changeset 6013 for issm/trunk/src/m/solvers/solver_thermal_nonlinear.m

Timestamp:

09/24/10 09:32:48 (14 years ago)

Author:

Mathieu Morlighem

Message:

Added parameters to ReduceLoad

File:

• issm/trunk/src/m/solvers/solver_thermal_nonlinear.m (modified) (1 diff)

issm/trunk/src/m/solvers/solver_thermal_nonlinear.m

@@ -25 +25 @@
                 if kffpartitioning,
                         [K_gg,K_ff,K_fs,p_g,p_f,melting_offset]=SystemMatrices(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters);
-                        p_f = Reduceload( p_f, K_fs, femmodel.ys);
+                        p_f = Reduceload( p_f, K_fs, femmodel.ys,femmodel.parameters);
                 else
                         [K_gg,K_ff,K_fs,p_g,p_f,melting_offset]=SystemMatrices(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters);