Impliementation of a collision mesh which is independent for the mesh

used to scatter particles and compute the EM field.

src/modules/moduleInject.f90

@@ -86,6 +86,7 @@ MODULE moduleInject
       CHARACTER(:), ALLOCATABLE, INTENT(in):: units
       INTEGER:: e, et
       INTEGER:: phSurface(1:mesh%numEdges)
+      INTEGER:: nVolColl
 
       self%id         =  i
       self%vMod       =  v/v_ref
@@ -125,6 +126,27 @@ MODULE moduleInject
         IF (mesh%edges(e)%obj%physicalSurface == physicalSurface) THEN
           et = et + 1
           self%edges(et) = mesh%edges(e)%obj%n
+          !Assign connectivity between injection edge and meshColl volume
+          IF (ASSOCIATED(meshForMCC, meshColl)) THEN
+            nVolColl = findCellBrute(meshColl, mesh%edges(e)%obj%randPos())
+            IF (nVolColl > 0) THEN
+              mesh%edges(e)%obj%eColl => meshColl%vols(nVolColl)%obj
+
+            ELSE
+              CALL criticalError("No connection between edge and meshColl", "initInject")
+
+            END IF
+
+          ELSE
+            IF (ASSOCIATED(mesh%edges(e)%obj%e1)) THEN
+              mesh%edges(e)%obj%eColl => mesh%edges(e)%obj%e1
+
+            ELSE
+              mesh%edges(e)%obj%eColl => mesh%edges(e)%obj%e2
+
+            END IF
+
+          END IF
 
         END IF
 
@@ -255,6 +277,7 @@ MODULE moduleInject
           CALL criticalError("No Volume associated to edge", 'addParticles') 
 
         END IF
+        partInj(n)%volColl = randomEdge%eColl%n
 
         !Assign particle type
         partInj(n)%species => self%species