From 600480f5d53c4ce441a3080f956e1a6f1ab9246c Mon Sep 17 00:00:00 2001 From: JGonzalez Date: Fri, 6 Jan 2023 21:37:26 +0100 Subject: [PATCH] Reduce overhead of probes I noticed that doProbes was causing some overhead even if no probes were being used. Now it should be fixed. --- src/modules/solver/moduleSolver.f90 | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/src/modules/solver/moduleSolver.f90 b/src/modules/solver/moduleSolver.f90 index 02932c9..af0a177 100644 --- a/src/modules/solver/moduleSolver.f90 +++ b/src/modules/solver/moduleSolver.f90 @@ -204,7 +204,10 @@ MODULE moduleSolver DO n = 1, partList%amount partNext => partCurr%next partArray(nStart + n) = partCurr%part - CALL doProbes(partArray(nStart+n)) + IF (nProbes > 0) THEN + CALL doProbes(partArray(nStart+n)) + + END IF DEALLOCATE(partCurr) partCurr => partNext @@ -270,7 +273,10 @@ MODULE moduleSolver IF (partInj(n)%n_in) THEN nn = nn + 1 partOld(nn) = partInj(n) - CALL doProbes(partOld(nn)) + IF (nProbes > 0) THEN + CALL doProbes(partOld(nn)) + + END IF END IF @@ -283,7 +289,10 @@ MODULE moduleSolver IF (partTemp(n)%n_in) THEN nn = nn + 1 partOld(nn) = partTemp(n) - CALL doProbes(partOld(nn)) + IF (nProbes > 0) THEN + CALL doProbes(partOld(nn)) + + END IF END IF