[cig-commits] commit: Clean up and change max_iterations to 1
Mercurial
hg at geodynamics.org
Fri Feb 10 16:00:44 PST 2012
changeset: 42:0043685f41a2
user: Walter Landry <wlandry at caltech.edu>
date: Wed Feb 08 13:18:40 2012 -0800
files: main.cxx
description:
Clean up and change max_iterations to 1
diff -r 37df131d70b5 -r 0043685f41a2 main.cxx
--- a/main.cxx Wed Feb 08 12:20:45 2012 -0800
+++ b/main.cxx Wed Feb 08 13:18:40 2012 -0800
@@ -31,7 +31,7 @@ int main()
/* Initial conditions */
- const int max_iterations=2;
+ const int max_iterations=1;
int n_sweeps=1;
const double theta_mom=1.0;
const double theta_c=1.0;
@@ -286,39 +286,14 @@ int main()
dzy_xx_correction*=-1;
dzy_xx+=dzy_xx_correction;
- if(j==Ny/8)
- std::cout << "dzy_xx "
- << i << " "
- << j << " "
- << x << " "
- // << middle << " "
- // << h << " "
- << dx << " "
- << dzy_xx << " "
- // << dzy_xx + dzy_xx_correction << " "
- // << dzy_xx + zy_jump/(h*h) - dx*dzy_x_jump/(h*h)
- // + dx*dx*dzy_xx_jump/(2*h*h) << " "
- // << zy_jump/(h*h) << " "
- // << dx*dzy_x_jump/(h*h) << " "
- << dx*dx*dzy_xx_jump/(2*h*h) << " "
- // << dzy_xx + dzy_xx_correction << " "
- << (zy[i+2][j] - 2*zy[i+3][j] + zy[i+4][j])/(h*h) << " "
- << (zy[i+1][j] - 2*zy[i+2][j] + zy[i+3][j])/(h*h) << " "
- << (zy[i][j] - 2*zy[i+1][j] + zy[i+2][j])/(h*h) << " "
- << (zy[i-1][j] - 2*zy[i][j] + zy[i+1][j])/(h*h) << " "
- << (zy[i-2][j] - 2*zy[i-1][j] + zy[i][j])/(h*h) << " "
- << (zy[i-3][j] - 2*zy[i-2][j] + zy[i-1][j])/(h*h) << " "
- << (zy[i-4][j] - 2*zy[i-3][j] + zy[i-2][j])/(h*h) << " "
- << "\n";
-
-
if(x+h/2>middle && x-h/2<middle)
{
dx=(x>middle) ? ((x-h/2)-middle)
: ((x+h/2)-middle);
- double dzx_yx_correction=eta_jump*(dvx_y[j] + dx*dvy_yy[j])/h;
- // dzx_yx-=eta_jump*(dvx_y[j] + dx*dvy_yy[j])/h;
- // if(j==Ny/4)
+ double dzx_yx_correction=
+ eta_jump*(dvx_y[j] - dx*dvy_yy[j])/h;
+ dzx_yx-=dzx_yx_correction;
+ // if(j==Ny/8)
// std::cout << "dzx_yx "
// << i << " "
// << j << " "
@@ -328,9 +303,9 @@ int main()
// // << ((x+h/2)-middle)/dx << " "
// // << dzx_yx << " "
// // << dzx_yx_correction << " "
- // << eta_jump*dvx_y[j]/h << " "
- // << eta_jump*dx*dvy_yy[j]/h << " "
- // << dzx_yx - dzx_yx_correction << " "
+ // // << eta_jump*dvx_y[j]/h << " "
+ // // << eta_jump*dx*dvy_yy[j]/h << " "
+ // << dzx_yx << " "
// << ((zx[i+3][j] - zx[i+3][j-1])
// - (zx[i+2][j] - zx[i+2][j-1]))/(h*h) << " "
// << ((zx[i+2][j] - zx[i+2][j-1])
@@ -346,6 +321,25 @@ int main()
// << "\n";
}
}
+
+ if(j==Ny/8 && (x-2*h<middle && x+2*h>middle))
+ std::cout << "Ry "
+ << i << " "
+ << j << " "
+ << x << " "
+ << middle << " "
+ << 2*dzy_yy + dzy_xx + dzx_yx
+ + 2*(dlog_etayy*zy[i][j] + dlog_etay*dzy_y)
+ + dlog_etaxx*zy[i][j] + dlog_etax*dzy_x
+ + dlog_etayx*zx_avg + dlog_etay*dzx_x
+ - dp_y - fy[i][j] << " "
+ << 2*dzy_yy << " "
+ << dzy_xx << " "
+ << dzx_yx << " "
+ << dp_y << " "
+ << fy[i][j] << " "
+ << "\n";
+
}
/* Compute the residual and update zy */
@@ -360,8 +354,6 @@ int main()
Resid_y[i][j]=Ry;
// zy[i][j]-=theta_mom*Ry/dRy_dzy;
-
- Resid_y[i][j]=dzy_xx;
}
}
}
More information about the CIG-COMMITS
mailing list