New boundary condition 'wallTemperature' that simulates a reflecting

wall with constant temperature and specific heat.

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

@@ -56,6 +56,15 @@ MODULE moduleMesh1DRad
 
     END SUBROUTINE transparent
 
+    MODULE SUBROUTINE wallTemperature(edge, part)
+      USE moduleSpecies
+      IMPLICIT NONE
+
+      CLASS(meshEdge), INTENT(inout):: edge
+      CLASS(particle), INTENT(inout):: part
+
+    END SUBROUTINE wallTemperature
+
   END INTERFACE
 
   TYPE, PUBLIC, ABSTRACT, EXTENDS(meshVol):: meshVol1DRad
@@ -190,6 +199,9 @@ MODULE moduleMesh1DRad
         TYPE IS(boundaryTransparent)
           self%fBoundary(s)%apply => transparent
 
+        TYPE IS(boundaryWallTemperature)
+          self%fBoundary(s)%apply => wallTemperature
+
         CLASS DEFAULT
           CALL criticalError("Boundary type not defined in this geometry", 'initEdge1DRad')
 

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

@@ -65,4 +65,38 @@ SUBMODULE (moduleMesh1DRad) moduleMesh1DRadBoundary
 
     END SUBROUTINE transparent
 
+    SUBROUTINE wallTemperature(edge, part)
+      USE moduleSpecies
+      USE moduleBoundary
+      USE moduleConstParam, ONLY: PI
+      IMPLICIT NONE
+
+      CLASS(meshEdge), INTENT(inout):: edge
+      CLASS(particle), INTENT(inout):: part
+      REAL(8):: x, y
+
+      !Modifies particle velocity according to wall temperature
+      SELECT TYPE(bound => edge%boundary%bTypes(part%sp)%obj)
+      TYPE IS(boundaryWallTemperature)
+        x = 0.D0
+        DO WHILE (x == 0.D0)
+          CALL RANDOM_NUMBER(x)
+
+        END DO
+
+        CALL RANDOM_NUMBER(y)
+
+        part%v(1) = part%v(1) + bound%vTh*DSQRT(-2.D0*DLOG(x))*DCOS(2.D0*PI*y)
+
+      END SELECT
+
+      SELECT TYPE(edge)
+      TYPE IS(meshEdge1DRad)
+        part%v(1) = -part%v(1)
+        part%r(1) =  2.D0*edge%r - part%r(1)
+
+      END SELECT
+
+    END SUBROUTINE wallTemperature
+
 END SUBMODULE moduleMesh1DRadBoundary