Commit 56e84ac5 authored by tilman.metz's avatar tilman.metz

fixed copy and paste bug

fixed copy and paste bug in update function of the cpml boundaries.
parent f83a7edb
......@@ -136,11 +136,11 @@ double update_s_CPML(int nx1, int nx2, int ny1, int ny2, int nz1, int nz2, int n
if((POS[3]==0) && (k<=FW)){
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];}
vzz = vzz / K_z[k] + psi_vzz[j][i][k];}
if((POS[3]==NPROCZ-1) && (k>=nz2+1)){
......@@ -273,11 +273,11 @@ double update_s_CPML(int nx1, int nx2, int ny1, int ny2, int nz1, int nz2, int n
if((POS[3]==0) && (k<=FW)){
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];}
vzz = vzz / K_z[k] + psi_vzz[j][i][k];}
if((POS[3]==NPROCZ-1) && (k>=nz2+1)){
......@@ -389,11 +389,11 @@ double update_s_CPML(int nx1, int nx2, int ny1, int ny2, int nz1, int nz2, int n
if((POS[3]==0) && (k<=FW)){
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];}
vzz = vzz / K_z[k] + psi_vzz[j][i][k];}
if((POS[3]==NPROCZ-1) && (k>=nz2+1)){
......@@ -506,11 +506,11 @@ double update_s_CPML(int nx1, int nx2, int ny1, int ny2, int nz1, int nz2, int n
if((POS[3]==0) && (k<=FW)){
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];}
vzz = vzz / K_z[k] + psi_vzz[j][i][k];}
if((POS[3]==NPROCZ-1) && (k>=nz2+1)){
......@@ -613,11 +613,11 @@ double update_s_CPML(int nx1, int nx2, int ny1, int ny2, int nz1, int nz2, int n
vzz = (b1*(vz[j][i][k]-vz[j][i][k-1])+b2*(vz[j][i][k+1]-vz[j][i][k-2]))/DZ;
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];
vzz = vzz / K_z[k] + psi_vzz[j][i][k];
......
......@@ -137,11 +137,11 @@ double update_s_CPML_elastic(int nx1, int nx2, int ny1, int ny2, int nz1, int nz
if((POS[3]==0) && (k<=FW)){
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];}
vzz = vzz / K_z[k] + psi_vzz[j][i][k];}
if((POS[3]==NPROCZ-1) && (k>=nz2+1)){
......@@ -231,11 +231,11 @@ double update_s_CPML_elastic(int nx1, int nx2, int ny1, int ny2, int nz1, int nz
if((POS[3]==0) && (k<=FW)){
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];}
vzz = vzz / K_z[k] + psi_vzz[j][i][k];}
if((POS[3]==NPROCZ-1) && (k>=nz2+1)){
......@@ -304,11 +304,11 @@ double update_s_CPML_elastic(int nx1, int nx2, int ny1, int ny2, int nz1, int nz
if((POS[3]==0) && (k<=FW)){
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];}
vzz = vzz / K_z[k] + psi_vzz[j][i][k];}
if((POS[3]==NPROCZ-1) && (k>=nz2+1)){
......@@ -377,11 +377,11 @@ double update_s_CPML_elastic(int nx1, int nx2, int ny1, int ny2, int nz1, int nz
if((POS[3]==0) && (k<=FW)){
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];}
vzz = vzz / K_z[k] + psi_vzz[j][i][k];}
if((POS[3]==NPROCZ-1) && (k>=nz2+1)){
......@@ -440,11 +440,11 @@ double update_s_CPML_elastic(int nx1, int nx2, int ny1, int ny2, int nz1, int nz
vzz = (b1*(vz[j][i][k]-vz[j][i][k-1])+b2*(vz[j][i][k+1]-vz[j][i][k-2]))/DZ;
psi_vxz[j][i][k] = b_z_half[k] * psi_vxz[j][i][k] + a_z_half[k] * vxz;
vxz = vxz / K_y_half[k] + psi_vxz[j][i][k];
vxz = vxz / K_z_half[k] + psi_vxz[j][i][k];
psi_vyz[j][i][k] = b_z_half[k] * psi_vyz[j][i][k] + a_z_half[k] * vyz;
vyz = vyz / K_y_half[k] + psi_vyz[j][i][k];
vyz = vyz / K_z_half[k] + psi_vyz[j][i][k];
psi_vzz[j][i][k] = b_z[k] * psi_vzz[j][i][k] + a_z[k] * vzz;
vzz = vzz / K_y[k] + psi_vzz[j][i][k];
vzz = vzz / K_z[k] + psi_vzz[j][i][k];
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment