[cig-commits] commit: Cleanup
Mercurial
hg at geodynamics.org
Tue Mar 13 05:41:02 PDT 2012
changeset: 89:b3ac581506e0
tag: tip
user: Walter Landry <wlandry at caltech.edu>
date: Tue Mar 13 05:40:49 2012 -0700
files: compute_v_on_interface.cxx
description:
Cleanup
diff -r 1d7092563af8 -r b3ac581506e0 compute_v_on_interface.cxx
--- a/compute_v_on_interface.cxx Mon Mar 12 20:15:23 2012 -0700
+++ b/compute_v_on_interface.cxx Tue Mar 13 05:40:49 2012 -0700
@@ -83,14 +83,10 @@ double compute_dv_yy(const double z[][ny
double dv_yy_p;
if(j==0)
{
- // dv_yy_p=(vel(z,log_eta,i+1,j+1) - 2*vel(z,log_eta,i+1,j)
- // - vel(z,log_eta,i+1,ny-1))/(h*h);
dv_yy_p=(vel(z,log_eta,i+1,j+1) - vel(z,log_eta,i+1,j))/(h*h);
}
else if(j==ny-1)
{
- // dv_yy_p=(-vel(z,log_eta,i+1,0) - 2*vel(z,log_eta,i+1,j)
- // + vel(z,log_eta,i+1,j-1))/(h*h);
dv_yy_p=(-vel(z,log_eta,i+1,j) + vel(z,log_eta,i+1,j-1))/(h*h);
}
else
@@ -102,14 +98,10 @@ double compute_dv_yy(const double z[][ny
double dv_yy_m;
if(j==0)
{
- // dv_yy_m=(vel(z,log_eta,i,j+1) - 2*vel(z,log_eta,i,j)
- // - vel(z,log_eta,i,ny-1))/(h*h);
dv_yy_m=(vel(z,log_eta,i,j+1) - vel(z,log_eta,i,j))/(h*h);
}
else if(j==ny-1)
{
- // dv_yy_m=(-vel(z,log_eta,i,0) - 2*vel(z,log_eta,i,j)
- // + vel(z,log_eta,i,j-1))/(h*h);
dv_yy_m=(-vel(z,log_eta,i,j) + vel(z,log_eta,i,j-1))/(h*h);
}
else
More information about the CIG-COMMITS
mailing list