Changeset 9227

Timestamp:

08/09/11 15:05:16 (14 years ago)

Author:

seroussi

Message:

fixed problem thermal supg

File:

• issm/trunk/src/c/objects/Elements/Penta.cpp (modified) (1 diff)

issm/trunk/src/c/objects/Elements/Penta.cpp

@@ -2250 +2250 @@
                         for(i=0;i<numdof;i++){
                                 for(j=0;j<numdof;j++){
-                                        Ke->values[i*numdof+j]=tau_parameter*D_scalar_advec*
+                                        Ke->values[i*numdof+j]+=tau_parameter*D_scalar_advec*
                                           ((u-um)*dbasis[0][i]+(v-vm)*dbasis[1][i]+(w-wm)*dbasis[2][i])*((u-um)*dbasis[0][j]+(v-vm)*dbasis[1][j]+(w-wm)*dbasis[2][j]);
                                 }