[cig-commits] commit: Add correction to dzy_xy
Mercurial
hg at geodynamics.org
Fri Feb 10 16:00:34 PST 2012
changeset: 34:5ff9d2d33d51
user: Walter Landry <wlandry at caltech.edu>
date: Wed Feb 08 01:34:46 2012 -0800
files: main.cxx
description:
Add correction to dzy_xy
diff -r 39d15ef50cb2 -r 5ff9d2d33d51 main.cxx
--- a/main.cxx Wed Feb 08 01:18:14 2012 -0800
+++ b/main.cxx Wed Feb 08 01:34:46 2012 -0800
@@ -44,7 +44,7 @@ int main()
double Resid_p[N][N], Resid_x[N+1][N], Resid_y[N][N+1];
double dzx_x_correction, dzx_xx_correction, dzx_yx_correction,
- dzy_xx_correction, dzy_xy_correction, dp_x_correction;
+ dzy_xx_correction, dzy_xy_correction;
for(int iteration=0;iteration<max_iterations;++iteration)
{
@@ -245,35 +245,48 @@ int main()
if(x+h/2>middle && x-h/2<middle)
{
- dx=(x>middle) ? ((x-h/2)-middle) : ((x+h/2)-middle);
+ dx=(x>middle) ? ((x-h/2)-middle)
+ : ((x+h/2)-middle);
double dp_x_jump=2*dvx_yy[j]*eta_jump;
- dp_x_correction=(p_jump + dx*dp_x_jump)/h;
dp_x-=(p_jump + dx*dp_x_jump)/h;
- if(j<3)
- std::cout << "p "
+ // if(j<3)
+ // std::cout << "p "
+ // << i << " "
+ // << j << " "
+ // << x << " "
+ // << dp_x << " "
+
+ // << (p[i+3][j]-p[i+2][j])/h << " "
+ // << (p[i+2][j]-p[i+1][j])/h << " "
+ // << (p[i+1][j]-p[i][j])/h << " "
+ // << (p[i][j]-p[i-1][j])/h << " "
+ // << (p[i-1][j]-p[i-2][j])/h << " "
+ // << (p[i-2][j]-p[i-3][j])/h << " "
+ // << "\n";
+
+
+ dzy_xy-=
+ eta_jump*(dvy_y[j] - dx*dvx_yy[j])/h;
+ dzy_xy_correction=eta_jump*(dvy_y[j] - dx*dvx_yy[j])/h;
+ if(j==N/4)
+ std::cout << "dzy_xy "
<< i << " "
<< j << " "
<< x << " "
- << dp_x << " "
- << p_jump << " "
- << dp_x_jump << " "
- // << dp_fixed << " "
- << p[i+1][j] << " "
- << p[i][j] << " "
- << p[i-1][j] << " "
+ << dzy_xy << " "
+ // << dzy_xy_correction << " "
+ // << dzy_xy - dzy_xy_correction << " "
- << (p[i+3][j]-p[i+2][j])/h << " "
- << (p[i+2][j]-p[i+1][j])/h << " "
- << (p[i+1][j]-p[i][j])/h << " "
- << (p[i][j]-p[i-1][j])/h << " "
- << (p[i-1][j]-p[i-2][j])/h << " "
- << (p[i-2][j]-p[i-3][j])/h << " "
+ << ((zy[i+2][j+1] - zy[i+1][j+1])
+ - (zy[i+2][j] - zy[i+1][j]))/(h*h) << " "
+ << ((zy[i+1][j+1] - zy[i][j+1])
+ - (zy[i+1][j] - zy[i][j]))/(h*h) << " "
+ << ((zy[i][j+1] - zy[i-1][j+1])
+ - (zy[i][j] - zy[i-1][j]))/(h*h) << " "
+ << ((zy[i-1][j+1] - zy[i-2][j+1])
+ - (zy[i-1][j] - zy[i-2][j]))/(h*h) << " "
<< "\n";
-
-
- dzy_xy_correction=eta_jump*h*(dvy_y[j] - dx*dvx_yy[j])/(h*h);
- // dzy_xy-=eta_jump*h*(dvy_y[j] - dx*dvx_yy[j])/(h*h);
}
}
}
@@ -291,7 +304,7 @@ int main()
Resid_x[i][j]=Rx;
// zx[i][j]-=theta_mom*Rx/dRx_dzx;
- Resid_x[i][j]=dp_x;
+ Resid_x[i][j]=dzy_xy;
}
}
}
More information about the CIG-COMMITS
mailing list