[cig-commits] commit: Do not apply damping force to the bottom

Mercurial hg at geodynamics.org
Wed Jun 20 13:24:32 PDT 2012


changeset:   452:cb0cc087a6c9
tag:         tip
user:        Walter Landry <wlandry at caltech.edu>
date:        Wed Jun 20 13:24:16 2012 -0700
files:       Utils/src/BuoyancyDampingTerm.cxx
description:
Do not apply damping force to the bottom


diff -r 4853368a2fda -r cb0cc087a6c9 Utils/src/BuoyancyDampingTerm.cxx
--- a/Utils/src/BuoyancyDampingTerm.cxx	Wed Jun 13 15:08:55 2012 -0700
+++ b/Utils/src/BuoyancyDampingTerm.cxx	Wed Jun 20 13:24:16 2012 -0700
@@ -217,6 +217,18 @@ void _BuoyancyDampingTerm_AssembleElemen
         {
           const unsigned int face((local_norm==0 ? 1 :
                                    (local_norm==1 ? 0 : 2))*2+(sgn+1)/2);
+          IJK ijk;
+          RegularMeshUtils_Node_1DTo3D
+            (variable1->feMesh,
+             Mesh_DomainToGlobal(variable1->feMesh,MT_VERTEX,
+                                 elementType->faceNodes[face][0]),ijk);
+
+          /* Do not apply a damping force to the bottom boundary.
+             Assume that it is counteracted by whatever is below
+             it. */
+          if(local_norm==1 && sgn==-1 && ijk[1]==0)
+            continue;
+          
           for(int i=0; i<3; ++i)
             for(int j=0;j<(dim==2 ? 1 : 3); ++j)
               {



More information about the CIG-COMMITS mailing list