Changeset 16801 for issm/trunk-jpl/src/c/analyses/StressbalanceAnalysis.cpp

Timestamp:

11/16/13 09:07:02 (11 years ago)

Author:

Mathieu Morlighem

Message:

CHG: done with Driving stress SSA

File:

• issm/trunk-jpl/src/c/analyses/StressbalanceAnalysis.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/analyses/StressbalanceAnalysis.cpp

@@ -867 +867 @@
                 /*Build load vector: */
                 for(i=0;i<numnodes;i++){
-                        pe->values[i*NDOF2+0]+=-driving_stress_baseline*slope[0]*Jdet*gauss->weight*basis[i];
-                        pe->values[i*NDOF2+1]+=-driving_stress_baseline*slope[1]*Jdet*gauss->weight*basis[i];
+                        pe->values[i*2+0]+=-driving_stress_baseline*slope[0]*Jdet*gauss->weight*basis[i];
+                        pe->values[i*2+1]+=-driving_stress_baseline*slope[1]*Jdet*gauss->weight*basis[i];
                 }
         }