Fixing some issues in 3D Cartesian coordinates. Included 3D pusher.
Still there are issues linking a volume to an edge.
This commit is contained in:
parent
1e66110014
commit
c236c5e0e2
8 changed files with 123 additions and 148 deletions
|
|
@ -230,12 +230,15 @@ MODULE moduleInject
|
|||
!Random position in edge
|
||||
partInj(n)%r = randomEdge%randPos()
|
||||
!Volume associated to the edge:
|
||||
IF (DOT_PRODUCT(self%n, randomEdge%normal) >= 0.D0) THEN
|
||||
IF (ASSOCIATED(randomEdge%e1)) THEN
|
||||
partInj(n)%vol = randomEdge%e1%n
|
||||
|
||||
ELSE
|
||||
|
||||
ELSEIF (ASSOCIATED(randomEdge%e2)) THEN
|
||||
partInj(n)%vol = randomEdge%e2%n
|
||||
|
||||
ELSE
|
||||
PRINT *, "ERROR NO VOL ASSOCIATED TO EDGE"
|
||||
|
||||
END IF
|
||||
|
||||
partInj(n)%v = (/ self%v(1)%obj%randomVel(), &
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue