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:
Jorge Gonzalez 2021-03-15 10:00:34 +01:00
commit c236c5e0e2
8 changed files with 123 additions and 148 deletions

View file

@ -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(), &