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

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

@ -204,7 +204,10 @@ MODULE moduleSolver
DO n = 1, partList%amount DO n = 1, partList%amount
partNext => partCurr%next partNext => partCurr%next
partArray(nStart + n) = partCurr%part partArray(nStart + n) = partCurr%part
IF (nProbes > 0) THEN
CALL doProbes(partArray(nStart+n)) CALL doProbes(partArray(nStart+n))
END IF
DEALLOCATE(partCurr) DEALLOCATE(partCurr)
partCurr => partNext partCurr => partNext
@ -270,10 +273,13 @@ MODULE moduleSolver
IF (partInj(n)%n_in) THEN IF (partInj(n)%n_in) THEN
nn = nn + 1 nn = nn + 1
partOld(nn) = partInj(n) partOld(nn) = partInj(n)
IF (nProbes > 0) THEN
CALL doProbes(partOld(nn)) CALL doProbes(partOld(nn))
END IF END IF
END IF
END DO END DO
!$OMP SECTION !$OMP SECTION
@ -283,10 +289,13 @@ MODULE moduleSolver
IF (partTemp(n)%n_in) THEN IF (partTemp(n)%n_in) THEN
nn = nn + 1 nn = nn + 1
partOld(nn) = partTemp(n) partOld(nn) = partTemp(n)
IF (nProbes > 0) THEN
CALL doProbes(partOld(nn)) CALL doProbes(partOld(nn))
END IF END IF
END IF
END DO END DO
!$OMP SECTION !$OMP SECTION