Changeset 17858
- Timestamp:
- 04/28/14 14:10:24 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified issm/trunk-jpl/src/c/classes/Elements/Tria.cpp ¶
r17855 r17858 157 157 else{ 158 158 IssmDouble* xyz_list=NULL; 159 IssmDouble *xyz_list_base=NULL; 159 160 IssmDouble pressure,viscosity,sigma_nn; 160 161 IssmDouble sigma_xx,sigma_xy,sigma_yy; … … 165 166 /* Get node coordinates and dof list: */ 166 167 GetVerticesCoordinates(&xyz_list); 168 GetVerticesCoordinatesTop(&xyz_list_base); 167 169 168 170 /*Retrieve all inputs we will be needing: */ … … 188 190 189 191 /*Get normal vector to the bed */ 190 NormalBase(&base_normal[0],xyz_list );192 NormalBase(&base_normal[0],xyz_list_base); 191 193 192 194 /*Compute sigma_nn*/ … … 198 200 /*Clean up and return*/ 199 201 xDelete<IssmDouble>(xyz_list); 202 xDelete<IssmDouble>(xyz_list_base); 200 203 delete gauss; 201 204 } … … 1665 1668 1666 1669 /*Build unit outward pointing vector*/ 1667 int index1,index2;1668 1670 IssmDouble vector[2]; 1669 1671 IssmDouble norm; 1670 1672 1671 this->EdgeOnBaseIndices(&index1,&index2); 1672 vector[0]=xyz_list[index2*3+0] - xyz_list[index1*3+0]; 1673 vector[1]=xyz_list[index2*3+1] - xyz_list[index1*3+1]; 1673 vector[0]=xyz_list[1*3+0] - xyz_list[0*3+0]; 1674 vector[1]=xyz_list[1*3+1] - xyz_list[0*3+1]; 1674 1675 1675 1676 norm=sqrt(vector[0]*vector[0] + vector[1]*vector[1]); … … 1688 1689 1689 1690 this->EdgeOnSurfaceIndices(&index1,&index2); 1690 vector[0]=xyz_list[ index2*3+0] - xyz_list[index1*3+0];1691 vector[1]=xyz_list[ index2*3+1] - xyz_list[index1*3+1];1691 vector[0]=xyz_list[1*3+0] - xyz_list[0*3+0]; 1692 vector[1]=xyz_list[1*3+1] - xyz_list[0*3+1]; 1692 1693 1693 1694 norm=sqrt(vector[0]*vector[0] + vector[1]*vector[1]);
Note:
See TracChangeset
for help on using the changeset viewer.