Mark_1
First thing that I am kinda happy with. Still some things to improve but at least push is good.
This commit is contained in:
parent
15d64f3e68
commit
7f6afd6a87
11 changed files with 336 additions and 258 deletions
|
|
@ -354,11 +354,13 @@ MODULE moduleSolver
|
|||
IMPLICIT NONE
|
||||
|
||||
INTEGER:: n
|
||||
CLASS(meshCell), POINTER:: cell
|
||||
|
||||
!Loops over the particles to scatter them
|
||||
!$OMP DO
|
||||
DO n = 1, nPartOld
|
||||
CALL mesh%cells(partOld(n)%vol)%obj%scatter(partOld(n))
|
||||
cell => mesh%cells(partOld(n)%vol)%obj
|
||||
CALL cell%scatter(cell%nNodes, partOld(n))
|
||||
|
||||
END DO
|
||||
!$OMP END DO
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue