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

Locks for particle lists are now inside the type.

Browse source 
The lock of a particle list is no longer an external variable, it is now
part of the type.

New procedures have been added to set and unset the lock.
This commit is contained in:
Jorge Gonzalez 2022-12-31 11:22:02 +01:00
commit 8199a228c8
5 changed files with 39 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -434,9 +434,9 @@ MODULE moduleSolver
!Copy data from original particle
newPart = part
!Add particle to list of new particles from weighting scheme
CALL OMP_SET_LOCK(lockWScheme)
CALL partWScheme%setLock()
CALL partWScheme%add(newPart)
CALL OMP_UNSET_LOCK(lockWScheme)
CALL partWScheme%unsetLock()
!Add particle to cell list
CALL OMP_SET_lock(vol%lock)
sp = part%species%n