From 335409c6a8aaca8eea6347ca18dfd9a90c6467b3 Mon Sep 17 00:00:00 2001
From: JanThorbecke <janth@xs4all.nl>
Date: Tue, 3 Dec 2019 13:56:17 +0100
Subject: [PATCH] bug fix for source on surface with multiple threads
---
fdelmodc/sourceOnSurface.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/fdelmodc/sourceOnSurface.c b/fdelmodc/sourceOnSurface.c
index a2062dc..1b858f9 100644
--- a/fdelmodc/sourceOnSurface.c
+++ b/fdelmodc/sourceOnSurface.c
@@ -306,7 +306,7 @@ int reStoreSourceOnSurface(modPar mod, srcPar src, bndPar bnd, int ixsrc, int iz
/* restore source positions on the edge */
is0 = -1*floor((src.n-1)/2);
-#pragma omp for private (isrc, ixs, izs, store)
+//#pragma omp for private (isrc, ixs, izs, store)
for (isrc=0; isrc<src.n; isrc++) {
/* calculate the source position */
if (src.random || src.multiwav) {
--
GitLab