Changeset 3870

Timestamp:

05/20/10 16:22:55 (15 years ago)

Author:

seroussi

Message:

fixed error in diagnostic vert

File:

• issm/trunk/src/c/objects/Elements/Penta.cpp (modified) (5 diffs)

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

@@ -1523 +1523 @@
         GetVerticesCoordinates(&xyz_list[0][0], nodes, numgrids);
         GetDofList(&doflist[0],&numberofdofspernode);
-
 
         /*Get gaussian points and weights. Penta is an extrusion of a Tria, we therefore 
@@ -2422 +2421 @@
         int i;
 
-
         /* node data: */
         const int    numgrids=6;
@@ -2473 +2471 @@
         inputs->GetParameterValue(&onbed,ElementOnBedEnum);
 
-        
         /*If on water, skip: */
         if(onwater)return;
@@ -2513 +2510 @@
 
                         inputs->GetParameterDerivativeValue(&du[0],&xyz_list[0][0],gauss_coord,VxEnum);
-                        inputs->GetParameterDerivativeValue(&du[0],&xyz_list[0][0],gauss_coord,VyEnum);
+                        inputs->GetParameterDerivativeValue(&dv[0],&xyz_list[0][0],gauss_coord,VyEnum);
                         dudx=du[0];
                         dvdy=dv[1];
-
 
                         /* Get Jacobian determinant: */
@@ -2609 +2605 @@
 /*FUNCTION Penta::CreatePVectorThermal {{{1*/
 void Penta::CreatePVectorThermal( Vec pg, int analysis_type,int sub_analysis_type){
-
 
         /*indexing: */