Rewriting surfaces and boundaries

src/modules/mesh/moduleMesh@boundaryEM.f90

@@ -214,25 +214,4 @@ submodule(moduleMesh) boundaryEM
 
     END SUBROUTINE applyDirichletTime
 
-    function physicalSurface_to_boundaryEMId(boundaryArray, physicalSurface) result(b)
-      implicit none
-
-      type(boundaryEMLinking):: boundaryArray(:)
-      integer:: physicalSurface
-      integer:: b
-      integer:: bt
-
-      b = 0
-      do bt=1, nPhysicalSurfaces
-        if (boundaryArray(bt)%physicalSurface == physicalSurface) then
-          b = boundaryArray(bt)%model%n
-          
-          exit
-
-        end if
-
-      end do
-
-    end function physicalSurface_to_boundaryEMId
-
 end submodule boundaryEM