[cig-commits] commit: Change Interface::pos[] to Interface::dd_pos[].

Mercurial hg at geodynamics.org
Fri Apr 13 16:41:17 PDT 2012


changeset:   151:f5a306bd419e
user:        Walter Landry <wlandry at caltech.edu>
date:        Sun Apr 08 17:37:14 2012 -0700
files:       compute_coefficients/Interface.hxx compute_coefficients/Interface/Interface.cxx compute_coefficients/compute_Cxyz.cxx
description:
Change Interface::pos[] to Interface::dd_pos[].


diff -r 597cdfd1cf51 -r f5a306bd419e compute_coefficients/Interface.hxx
--- a/compute_coefficients/Interface.hxx	Fri Apr 06 10:28:49 2012 -0700
+++ b/compute_coefficients/Interface.hxx	Sun Apr 08 17:37:14 2012 -0700
@@ -9,8 +9,9 @@ class Interface
 class Interface
 {
 public:
-  FTensor::Tensor1<double,2> grid_pos, pos[2], corner_pos[2][2],
-    anticorner_pos[2];
+  FTensor::Tensor1<double,2> grid_pos, dd_pos[2], corner_pos[2][2],
+    anticorner_pos[2], dd_norm[2], corner_norm[2][2], anticorner_norm[2],
+    dd_tangent[2], corner_tangent[2][2], anticorner_tangent[2];
   bool intersect_dd[2], intersect_sides[2], intersect_corner[2][2],
     intersect_anticorner[2][2];
   bool intersect_dp;
diff -r 597cdfd1cf51 -r f5a306bd419e compute_coefficients/Interface/Interface.cxx
--- a/compute_coefficients/Interface/Interface.cxx	Fri Apr 06 10:28:49 2012 -0700
+++ b/compute_coefficients/Interface/Interface.cxx	Sun Apr 08 17:37:14 2012 -0700
@@ -21,6 +21,8 @@ Interface::Interface(const int &d, const
     {
       intersect_dd[0]=sign(distx[i][j])!=sign(distx[i+1][j])
         || sign(distx[i][j])!=sign(distx[i-1][j]);
+      // intersect_dd[0]=(i!=Nx-1 && sign(distx[i][j])!=sign(distx[i+1][j]))
+      //   || (i!=1 && sign(distx[i][j])!=sign(distx[i-1][j]));
       intersect_dd[1]=false;
       if(j!=Ny-1)
         {
@@ -36,27 +38,27 @@ Interface::Interface(const int &d, const
       intersect_dp=(sign(disty[i][j] + disty[i][j+1])
                     !=sign(disty[i-1][j] + disty[i-1][j+1]));
 
-      /* TODO This will have an error in the position of the interface
-         of O(h^2).  Need to correctt for curvature. */
+      /* TODO: This will have an error in the position of the interface
+         of O(h^2).  Need to correct for curvature. */
       double delta;
       if(intersect_dd[0])
         {
-          pos[0](1)=grid_pos(1);
+          dd_pos[0](1)=grid_pos(1);
           if(sign(distx[i][j])!=sign(distx[i+1][j]))
             delta=distx[i+1][j]-distx[i][j];
           else
             delta=distx[i][j]-distx[i-1][j];
 
-          pos[0](0)=grid_pos(0)-distx[i][j]*h/delta;
+          dd_pos[0](0)=grid_pos(0)-distx[i][j]*h/delta;
         }
       if(intersect_dd[1])
         {
-          pos[1](0)=grid_pos(0);
+          dd_pos[1](0)=grid_pos(0);
           if(j!=Ny-1 && sign(distx[i][j])!=sign(distx[i][j+1]))
             delta=distx[i][j+1]-distx[i][j];
           else
             delta=distx[i][j]-distx[i][j-1];
-          pos[1](1)=grid_pos(1)-distx[i][j]*h/delta;
+          dd_pos[1](1)=grid_pos(1)-distx[i][j]*h/delta;
         }
 
       compute_xy(i-1,j,distx[i][j],disty);
@@ -76,6 +78,8 @@ Interface::Interface(const int &d, const
         }
       intersect_dd[1]=sign(disty[i][j])!=sign(disty[i][j+1])
         || sign(disty[i][j-1])!=sign(disty[i][j]);
+      // intersect_dd[1]=(j!=Ny-1 && sign(disty[i][j])!=sign(disty[i][j+1]))
+      //   || (j!=1 && sign(disty[i][j-1])!=sign(disty[i][j]));
 
       intersect_dp=(sign(distx[i][j] + distx[i+1][j])
                     !=sign(distx[i][j-1] + distx[i+1][j-1]));
@@ -84,22 +88,22 @@ Interface::Interface(const int &d, const
       double delta;
       if(intersect_dd[0])
         {
-          pos[0](1)=grid_pos(1);
+          dd_pos[0](1)=grid_pos(1);
           if(i!=Ny-1 && sign(disty[i][j])!=sign(disty[i+1][j]))
             delta=disty[i+1][j]-disty[i][j];
           else
             delta=disty[i][j]-disty[i-1][j];
 
-          pos[0](0)=grid_pos(0)-disty[i][j]*h/delta;
+          dd_pos[0](0)=grid_pos(0)-disty[i][j]*h/delta;
         }
       if(intersect_dd[1])
         {
-          pos[1](0)=grid_pos(0);
+          dd_pos[1](0)=grid_pos(0);
           if(sign(disty[i][j])!=sign(disty[i][j+1]))
             delta=disty[i][j+1]-disty[i][j];
           else
             delta=disty[i][j]-disty[i][j-1];
-          pos[1](1)=grid_pos(1)-disty[i][j]*h/delta;
+          dd_pos[1](1)=grid_pos(1)-disty[i][j]*h/delta;
         }
 
       compute_xy(i,j-1,disty[i][j],distx);
diff -r 597cdfd1cf51 -r f5a306bd419e compute_coefficients/compute_Cxyz.cxx
--- a/compute_coefficients/compute_Cxyz.cxx	Fri Apr 06 10:28:49 2012 -0700
+++ b/compute_coefficients/compute_Cxyz.cxx	Sun Apr 08 17:37:14 2012 -0700
@@ -59,12 +59,12 @@ void compute_Cxyz(const double zx[Nx+1][
           FTensor::Tensor1<double,2> v, dv, ddv;
           FTensor::Tensor2<double,2,2> nt_to_xy;
           compute_v_on_interface(zx,zy,log_etax,log_etay,distx,disty,
-                                 interface.pos[dd],d,
+                                 interface.dd_pos[dd],d,
                                  v,dv,ddv,nt_to_xy);
 
-          int sgn(sign(pos(dd) - interface.pos[dd](dd)));
+          int sgn(sign(pos(dd) - interface.dd_pos[dd](dd)));
           FTensor::Tensor1<double,2> dx(0,0);
-          dx(dd)=pos(dd) - interface.pos[dd](dd) - h*sgn;
+          dx(dd)=pos(dd) - interface.dd_pos[dd](dd) - h*sgn;
           FTensor::Tensor1<double,2> z_jump;
           FTensor::Tensor2<double,2,2> dz_jump;
           FTensor::Tensor3_christof<double,2,2> ddz_jump;
@@ -141,7 +141,7 @@ void compute_Cxyz(const double zx[Nx+1][
 
           if(d==dd && interface.intersect_dp)
             {
-              dx(dd)=pos(dd) - interface.pos[dd](dd) - (h/2)*sgn;
+              dx(dd)=pos(dd) - interface.dd_pos[dd](dd) - (h/2)*sgn;
               C+=sgn*(p_jump + dp_jump(a)*dx(a))/h;
             }
 
@@ -151,7 +151,7 @@ void compute_Cxyz(const double zx[Nx+1][
               FTensor::Tensor1<int,2> dir2(0,0), dir3(0,0);
               dir2((d+1)%2)=1;
               dir3((dd+1)%2)=1;
-              dx(dd)=pos(dd) - interface.pos[dd](dd) - (h/2)*sgn;
+              dx(dd)=pos(dd) - interface.dd_pos[dd](dd) - (h/2)*sgn;
 
               C+=-sgn*(dz_jump(a,b)*dir2(a)*dir3(b)
                        + ddz_jump(a,b,c)*dir2(a)*dir3(b)*dx(c))/h;



More information about the CIG-COMMITS mailing list