Added the possibility to have different boundary conditions per species.

A boundary condition for each species must be indicated in the case
file.
This opens the door to use boundary conditions with different parameters
(for example, a wall temperature, coefficients for reflection or
 absorption...)

The examples included with the code have been updated accordently.

src/modules/mesh/1DCart/moduleMesh1DCart.f90

@@ -15,7 +15,7 @@ MODULE moduleMesh1DCart
 
   END TYPE meshNode1DCart
 
-  TYPE, PUBLIC, ABSTRACT, EXTENDS(meshEdge):: meshEdge1DCart
+  TYPE, PUBLIC, EXTENDS(meshEdge):: meshEdge1DCart
     !Element coordinates
     REAL(8):: x = 0.D0
     !Connectivity to nodes
@@ -27,6 +27,28 @@ MODULE moduleMesh1DCart
 
   END TYPE meshEdge1DCart
 
+  !Boundary functions defined in the submodule Boundary
+  INTERFACE
+    MODULE SUBROUTINE reflection(edge, part)
+      USE moduleSpecies
+      IMPLICIT NONE
+
+      CLASS(meshEdge), INTENT(inout):: edge
+      CLASS(particle), INTENT(inout):: part
+
+    END SUBROUTINE reflection
+
+    MODULE SUBROUTINE absorption(edge, part)
+      USE moduleSpecies
+      IMPLICIT NONE
+
+      CLASS(meshEdge), INTENT(inout):: edge
+      CLASS(particle), INTENT(inout):: part
+
+    END SUBROUTINE absorption
+
+  END INTERFACE
+
   TYPE, PUBLIC, ABSTRACT, EXTENDS(meshVol):: meshVol1DCart
     CONTAINS
       PROCEDURE, PASS:: detJac => detJ1DCart
@@ -122,6 +144,9 @@ MODULE moduleMesh1DCart
     !EDGE FUNCTIONS
     !Inits edge element
     SUBROUTINE initEdge1DCart(self, n, p, bt, physicalSurface)
+      USE moduleSpecies
+      USE moduleBoundary
+      USE moduleErrors
       IMPLICIT NONE
 
       CLASS(meshEdge1DCart), INTENT(out):: self
@@ -130,6 +155,7 @@ MODULE moduleMesh1DCart
       INTEGER, INTENT(in):: bt
       INTEGER, INTENT(in):: physicalSurface
       REAL(8), DIMENSION(1:3):: r1
+      INTEGER:: s
 
       self%n = n
       self%n1 => mesh%nodes(p(1))%obj
@@ -141,7 +167,24 @@ MODULE moduleMesh1DCart
       self%normal = (/ 1.D0, 0.D0, 0.D0 /)
 
       !Boundary index
-      self%bt = bt
+      self%boundary => boundary(bt)
+      ALLOCATE(self%fboundary(1:nSpecies))
+      !Assign functions to boundary
+      DO s = 1, nSpecies
+        SELECT TYPE(obj => self%boundary%bTypes(s)%obj)
+        TYPE IS(boundaryAbsorption)
+          self%fBoundary(s)%apply => absorption
+
+        TYPE IS(boundaryReflection)
+          self%fBoundary(s)%apply => reflection
+
+        CLASS DEFAULT
+          CALL criticalError("Boundary type not defined in this geometry", 'initEdge1DCart')
+
+        END SELECT
+
+      END DO
+      
       !Physical Surface
       self%physicalSurface = physicalSurface
 

src/modules/mesh/1DCart/moduleMesh1DCartBoundary.f90

@@ -1,40 +1,32 @@
-MODULE moduleMesh1DCartBoundary
+SUBMODULE (moduleMesh1DCart) moduleMesh1DCartBoundary
   USE moduleMesh1DCart
 
-  TYPE, PUBLIC, EXTENDS(meshEdge1DCart):: meshEdge1DCartRef
-    CONTAINS
-      PROCEDURE, PASS:: fBoundary => reflection
-
-  END TYPE meshEdge1DCartRef
-
-  TYPE, PUBLIC, EXTENDS(meshEdge1DCart):: meshEdge1DCartAbs
-    CONTAINS
-      PROCEDURE, PASS:: fBoundary => absorption
-
-  END TYPE meshEdge1DCartAbs
-
   CONTAINS
-    SUBROUTINE reflection(self, part)
+    SUBROUTINE reflection(edge, part)
       USE moduleSpecies
       IMPLICIT NONE
 
-      CLASS(meshEdge1DCartRef), INTENT(inout):: self
+      CLASS(meshEdge), INTENT(inout):: edge
       CLASS(particle), INTENT(inout):: part
 
-      part%v(1) = -part%v(1)
-      part%r(1) =  2.D0*self%x - part%r(1)
+      SELECT TYPE(edge)
+      TYPE IS(meshEdge1DCart)
+        part%v(1) = -part%v(1)
+        part%r(1) =  2.D0*edge%x - part%r(1)
+
+      END SELECT
 
     END SUBROUTINE reflection
 
-    SUBROUTINE absorption(self, part)
+    SUBROUTINE absorption(edge, part)
       USE moduleSpecies
       IMPLICIT NONE
 
-      CLASS(meshEdge1DCartAbs), INTENT(inout):: self
+      CLASS(meshEdge), INTENT(inout):: edge
       CLASS(particle), INTENT(inout):: part
 
       part%n_in = .FALSE.
 
     END SUBROUTINE absorption
 
-END MODULE moduleMesh1DCartBoundary
+END SUBMODULE moduleMesh1DCartBoundary

src/modules/mesh/1DCart/moduleMesh1DCartRead.f90

@@ -1,7 +1,6 @@
 MODULE moduleMesh1DCartRead
   USE moduleMesh
   USE moduleMesh1DCart
-  USE moduleMesh1DCartBoundary
   
   !TODO: make this abstract to allow different mesh formats
   TYPE, EXTENDS(meshGeneric):: mesh1DCartGeneric
@@ -107,14 +106,8 @@ MODULE moduleMesh1DCartRead
         READ(10, *) n, elemType, eTemp, boundaryType, eTemp, p(1)
         !Associate boundary condition 
         bt = getBoundaryId(boundaryType)
-        SELECT CASE(boundary(bt)%obj%boundaryType)
-        CASE ('reflection')
-          ALLOCATE(meshEdge1DCartRef:: self%edges(e)%obj)
 
-        CASE ('absorption')
-          ALLOCATE(meshEdge1DCartAbs:: self%edges(e)%obj)
-
-        END SELECT
+        ALLOCATE(meshEdge1DCart:: self%edges(e)%obj)
 
         CALL self%edges(e)%obj%init(n, p(1:1), bt, boundaryType)