Changeset 17413

Timestamp:

03/12/14 08:31:37 (11 years ago)

Author:

seroussi

Message:

CHG: mow using local coordinate system for all nodes at the base in FS (for shelf dampening)

File:

• issm/trunk-jpl/src/c/classes/Elements/Penta.cpp (modified) (2 diffs)

issm/trunk-jpl/src/c/classes/Elements/Penta.cpp

@@ -2171 +2171 @@
                 groundedicelevelset_input->GetInputValue(&groundedice,gauss);
 
+                /*New X axis          New Z axis*/
+                xz_plane[0]=1.;       xz_plane[3]=-slopex;  
+                xz_plane[1]=0.;       xz_plane[4]=-slopey;  
+                xz_plane[2]=slopex;   xz_plane[5]=1.;          
+
                 if(groundedice>0){
-                        /*New X axis          New Z axis*/
-                        xz_plane[0]=1.;       xz_plane[3]=-slopex;  
-                        xz_plane[1]=0.;       xz_plane[4]=-slopey;  
-                        xz_plane[2]=slopex;   xz_plane[5]=1.;          
                         if(this->nodes[indices[i]]->GetApproximation()==FSvelocityEnum){
                                 this->nodes[indices[i]]->DofInSSet(2); //vz 
@@ -2185 +2186 @@
                 }
                 else{
-                        /*New X axis          New Z axis*/
-                        xz_plane[0]=1.;       xz_plane[3]=0;  
-                        xz_plane[1]=0.;       xz_plane[4]=0;  
-                        xz_plane[2]=0;        xz_plane[5]=1.;          
                         if(this->nodes[indices[i]]->GetApproximation()==FSvelocityEnum){
                                 this->nodes[indices[i]]->DofInFSet(2); //vz