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/moduleBoundary.f90

@@ -1,21 +1,60 @@
 MODULE moduleBoundary
 
+  !Generic type for boundaries
   TYPE, PUBLIC:: boundaryGeneric
-    INTEGER:: id = 0
-    CHARACTER(:), ALLOCATABLE:: name
-    INTEGER:: physicalSurface = 0
-    CHARACTER(:), ALLOCATABLE:: boundaryType
+    CONTAINS
 
   END TYPE boundaryGeneric
 
-  TYPE:: boundaryCont
+  !Reflecting boundary
+  TYPE, PUBLIC, EXTENDS(boundaryGeneric):: boundaryReflection
+    CONTAINS
+
+  END TYPE boundaryReflection
+
+  !Absorption boundary
+  TYPE, PUBLIC, EXTENDS(boundaryGeneric):: boundaryAbsorption
+    CONTAINS
+
+  END TYPE boundaryAbsorption
+
+  !Transparent boundary
+  TYPE, PUBLIC, EXTENDS(boundaryGeneric):: boundaryTransparent
+    CONTAINS
+
+  END TYPE boundaryTransparent
+
+  !Symmetry axis
+  TYPE, PUBLIC, EXTENDS(boundaryGeneric):: boundaryAxis
+    CONTAINS
+
+  END TYPE boundaryAxis
+
+  !Wall at constant temperature
+  TYPE, PUBLIC, EXTENDS(boundaryGeneric):: boundaryThermalWall
+    REAL(8):: wallTemperature
+    CONTAINS
+
+  END TYPE
+
+  TYPE:: bTypesCont
     CLASS(boundaryGeneric), ALLOCATABLE:: obj
 
+  END TYPE bTypesCont
+
+  TYPE:: boundaryCont
+    INTEGER:: id = 0
+    CHARACTER(:), ALLOCATABLE:: name
+    INTEGER:: physicalSurface = 0
+    CLASS(bTypesCont), ALLOCATABLE:: bTypes(:)
+    CONTAINS
+
   END TYPE boundaryCont
 
-
+  !Number of boundaries
   INTEGER:: nBoundary = 0
-  TYPE(boundaryCont), ALLOCATABLE:: boundary(:)
+  !Array for boundary information
+  TYPE(boundaryCont), ALLOCATABLE, TARGET:: boundary(:)
 
   CONTAINS
     FUNCTION getBoundaryId(physicalSurface) RESULT(id)
@@ -27,7 +66,7 @@ MODULE moduleBoundary
 
       id = 0
       DO i = 1, nBoundary
-        IF (physicalSurface == boundary(i)%obj%physicalSurface) id = boundary(i)%obj%id
+        IF (physicalSurface == boundary(i)%physicalSurface) id = boundary(i)%id
 
       END DO