From 824a317ba06fd7ee941de5276d04e7ae670083af Mon Sep 17 00:00:00 2001
From: JanThorbecke <janth@xs4all.nl>
Date: Tue, 7 May 2019 12:33:24 +0200
Subject: [PATCH] source amplitude correction
---
fdelmodc/applySource.c | 1 +
1 file changed, 1 insertion(+)
diff --git a/fdelmodc/applySource.c b/fdelmodc/applySource.c
index bf0d38e..ecd1bd1 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;
--
GitLab