JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reduce overhead of probes

Browse source 
I noticed that doProbes was causing some overhead even if no probes were
being used. Now it should be fixed.
This commit is contained in:
Jorge Gonzalez 2023-01-06 21:37:26 +01:00
commit 600480f5d5
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/modules/solver/moduleSolver.f90
View file

@ -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