Working on init for new physical surfaces

This commit is contained in:
Jorge Gonzalez 2026-02-19 20:42:28 +01:00
commit a0d45503f7
6 changed files with 93 additions and 54 deletions

View file

@ -937,9 +937,27 @@ MODULE moduleMesh
class(meshEdgePointer), allocatable:: edges(:)
class(boundaryParticlePointer), allocatable:: particles(:)
class(boundaryEMGeneric), pointer:: EM => null()
contains
procedure, pass:: addNode
procedure, pass:: addEdge
end type
interface
module subroutine addNode(self, node)
class(physicalSurface), intent(inout):: self
integer, intent(in):: node
end subroutine addNode
module subroutine addEdge(self, edge)
class(physicalSurface), intent(inout):: self
integer, intent(in):: edge
end subroutine addEdge
end interface
integer:: nPhysicalSurfaces
type(physicalSurface), allocatable:: physicalSurfaces(:)