Skip to content

IFOS2D
IFOS2D
Commit c33fad22 authored by laura.gassner's avatar laura.gassner
Browse files
Options

BUGFIX scaling of the acoustic gradient for lambda

parent 57a02ac2
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
src/IFOS2D.c
View file @ c33fad22
...@@ -2418,11 +2418,13 @@ int main(int argc, char **argv){ ...@@ -2418,11 +2418,13 @@ int main(int argc, char **argv){
muss = 0; muss = 0;
lamss = prho[j][i] * ppi[j][i] * ppi[j][i] - 2.0 * muss; lamss = prho[j][i] * ppi[j][i] * ppi[j][i] - 2.0 * muss;
waveconv_lam[j][i] = (1.0/(4.0 * (lamss+muss) * (lamss+muss))) * waveconv_lam[j][i]; if(!ACOUSTIC)
waveconv_lam[j][i] = (1.0/(4.0 * (lamss+muss) * (lamss+muss))) * waveconv_lam[j][i];
else
waveconv_lam[j][i] = (1.0/((lamss+muss) * (lamss+muss))) * waveconv_lam[j][i];
/* calculate Vp gradient */ /* calculate Vp gradient */
waveconv_shot[j][i] = 2.0 * ppi[j][i] * prho[j][i] * waveconv_lam[j][i]; waveconv_shot[j][i] = 2.0 * ppi[j][i] * prho[j][i] * waveconv_lam[j][i];
// waveconv_shot[j][i] = waveconv_lam[j][i];
} }
if(PARAMETERIZATION==2){ if(PARAMETERIZATION==2){
......
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