Init for edges changed. Now, input

src/modules/mesh/1DRad/moduleMesh1DRad.f90

@@ -100,16 +100,15 @@ MODULE moduleMesh1DRad
 
     !EDGE FUNCTIONS
     !Init edge element
-    SUBROUTINE initEdge1DRad(self, n, p, bt, physicalSurface)
-      USE moduleSpecies
+    SUBROUTINE initEdge1DRad(self, n, p, bt)
+      USE moduleSpecies, only:nSpecies
       USE moduleErrors
       IMPLICIT NONE
 
       CLASS(meshEdge1DRad), INTENT(out):: self
       INTEGER, INTENT(in):: n
       INTEGER, INTENT(in):: p(:)
-      INTEGER, INTENT(in):: bt
-      INTEGER, INTENT(in):: physicalSurface
+      INTEGER, INTENT(in):: bt(1:nSpecies)
       REAL(8), DIMENSION(1:3):: r1
       INTEGER:: s
 
@@ -125,17 +124,13 @@ MODULE moduleMesh1DRad
 
       self%normal = (/ 1.D0, 0.D0, 0.D0 /)
 
-      !Boundary index
-      self%boundary => boundaries(bt)
-      ALLOCATE(self%fboundary(1:nSpecies))
+      !Boundary particle linking
+      allocate(self%boundariesParticle(1:nSpecies))
       !Assign functions to boundary
-      DO s = 1, nSpecies
-        CALL pointBoundaryFunction(self, s)
+      do s = 1, nSpecies
+        self%boundariesParticle(s)%obj => boundariesParticle(bt(s))%obj
 
-      END DO
-
-      !Physical Surface
-      self%physicalSurface = physicalSurface
+      end do
 
     END SUBROUTINE initEdge1DRad