Working on init for new physical surfaces
This commit is contained in:
parent
1b32dfdfd6
commit
a0d45503f7
6 changed files with 93 additions and 54 deletions
|
|
@ -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(:)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue