Skip to content
Snippets Groups Projects
Commit 01ab7bb0 authored by JanThorbecke's avatar JanThorbecke
Browse files

plane-wave adjusment

parent 0a120176
No related branches found
No related tags found
No related merge requests found
......@@ -89,7 +89,10 @@ int applySource(modPar mod, srcPar src, wavPar wav, bndPar bnd, int itime, int i
ix = src.x[isrc] + ibndx;
iz = src.z[isrc] + ibndz;
}
else { /* plane wave and point sources */
else if (src.plane) {/* plane wave sources */
ix = ixsrc + ibndx + src.x[isrc];
iz = izsrc + ibndz + src.z[isrc];
else { /* point sources */
ix = ixsrc + ibndx + is0 + isrc;
iz = izsrc + ibndz;
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment