New boundary condition 'wallTemperature' that simulates a reflecting

wall with constant temperature and specific heat.

src/modules/moduleBoundary.f90

@@ -24,6 +24,14 @@ MODULE moduleBoundary
 
   END TYPE boundaryTransparent
 
+  !Transparent boundary
+  TYPE, PUBLIC, EXTENDS(boundaryGeneric):: boundaryWallTemperature
+    !Thermal velocity of the wall: square root(Wall temperature X specific heat)
+    REAL(8):: vTh
+    CONTAINS
+
+  END TYPE boundaryWallTemperature
+
   !Symmetry axis
   TYPE, PUBLIC, EXTENDS(boundaryGeneric):: boundaryAxis
     CONTAINS
@@ -65,4 +73,17 @@ MODULE moduleBoundary
 
     END FUNCTION getBoundaryId
 
+    SUBROUTINE initWallTemperature(boundary, T, c)
+      USE moduleRefParam
+      IMPLICIT NONE
+
+      CLASS(boundaryGeneric), ALLOCATABLE, INTENT(out):: boundary
+      REAL(8), INTENT(in):: T, c !Wall temperature and specific heat
+      REAL(8):: vTh
+
+      vTh = DSQRT(c * T) / v_ref
+      boundary = boundaryWallTemperature(vTh = vTh)
+
+    END SUBROUTINE initWallTemperature
+
 END MODULE moduleBoundary