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

Fixed an issue in which the logical coordinates of the particle (xi)

Browse source 
were not being initialized and was causing particles to get stuck in
  the iteration loop.
This commit is contained in:
Jorge Gonzalez 2021-01-27 09:59:37 +01:00
commit 20bc1abc29
8 changed files with 42 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/modules/mesh/moduleMesh.f90
View file

@ -359,8 +359,9 @@ MODULE moduleMesh
CALL nextElement%findCell(part, self)
CLASS IS (meshEdge)
!Particle encountered an edge, apply boundary
!Particle encountered a surface, apply boundary
CALL nextElement%fBoundary(part%sp)%apply(nextElement,part)
!If particle is still inside the domain, call findCell
IF (part%n_in) THEN
IF(PRESENT(oldCell)) THEN
@ -474,7 +475,7 @@ MODULE moduleMesh
WRITE(60, "(A)") '$EndMeshFormat'
WRITE(60, "(A)") '$NodeData'
WRITE(60, "(A)") '1'
WRITE(60, "(A)") '"Density' // species(i)%obj%name // ' (m^-3)"'
WRITE(60, "(A)") '"Density ' // species(i)%obj%name // ' (m^-3)"'
WRITE(60, *) 1
WRITE(60, *) time
WRITE(60, *) 3