diff --git a/fdelmodc/applySource.c b/fdelmodc/applySource.c index bf0d38e5ec0551265d07cfa81855b570f1a80020..ecd1bd13fef06ba5627f6118d17f7d3c72b9ef26 100644 --- a/fdelmodc/applySource.c +++ b/fdelmodc/applySource.c @@ -190,6 +190,7 @@ int applySource(modPar mod, srcPar src, wavPar wav, bndPar bnd, int itime, int i else { /* Elastic scheme */ /* Compressional source */ if (src.type == 1) { + if (src.orient != 1) src_ampl=src_ampl/mod.dx; if (src.orient==1) { /* monopole */ txx[ix*n1+iz] += src_ampl; tzz[ix*n1+iz] += src_ampl;