Forgot to link edge to boundary procedures. 1D case working right now

This commit is contained in:
Jorge Gonzalez 2026-02-26 15:23:10 +01:00
commit 9c30051663
5 changed files with 35 additions and 0 deletions

View file

@ -130,6 +130,13 @@ MODULE moduleMesh1DCart
call meshEdgePointer_add(physicalSurfaces(ps_index)%edges, self%n) call meshEdgePointer_add(physicalSurfaces(ps_index)%edges, self%n)
call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n1%n) call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n1%n)
! Link edge to particle boundaries
allocate(self%boundariesParticle(1:nSpecies))
do s = 1, nSpecies
self%boundariesParticle(s)%obj => physicalSurfaces(ps_index)%particles(s)%obj
end do
end subroutine initEdge1DCart end subroutine initEdge1DCart
!Get nodes from edge !Get nodes from edge

View file

@ -130,6 +130,13 @@ MODULE moduleMesh1DRad
call meshEdgePointer_add(physicalSurfaces(ps_index)%edges, self%n) call meshEdgePointer_add(physicalSurfaces(ps_index)%edges, self%n)
call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n1%n) call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n1%n)
! Link edge to particle boundaries
allocate(self%boundariesParticle(1:nSpecies))
do s = 1, nSpecies
self%boundariesParticle(s)%obj => physicalSurfaces(ps_index)%particles(s)%obj
end do
end subroutine initEdge1DRad end subroutine initEdge1DRad
!Get nodes from edge !Get nodes from edge

View file

@ -170,6 +170,13 @@ MODULE moduleMesh2DCart
call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n1%n) call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n1%n)
call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n2%n) call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n2%n)
! Link edge to particle boundaries
allocate(self%boundariesParticle(1:nSpecies))
do s = 1, nSpecies
self%boundariesParticle(s)%obj => physicalSurfaces(ps_index)%particles(s)%obj
end do
END SUBROUTINE initEdge2DCart END SUBROUTINE initEdge2DCart
!Get nodes from edge !Get nodes from edge

View file

@ -179,6 +179,13 @@ MODULE moduleMesh2DCyl
call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n1%n) call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n1%n)
call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n2%n) call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n2%n)
! Link edge to particle boundaries
allocate(self%boundariesParticle(1:nSpecies))
do s = 1, nSpecies
self%boundariesParticle(s)%obj => physicalSurfaces(ps_index)%particles(s)%obj
end do
END SUBROUTINE initEdge2DCyl END SUBROUTINE initEdge2DCyl
!Get nodes from edge !Get nodes from edge

View file

@ -153,6 +153,13 @@ MODULE moduleMesh3DCart
call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n2%n) call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n2%n)
call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n3%n) call meshNodePointer_add(physicalSurfaces(ps_index)%nodes, self%n3%n)
! Link edge to particle boundaries
allocate(self%boundariesParticle(1:nSpecies))
do s = 1, nSpecies
self%boundariesParticle(s)%obj => physicalSurfaces(ps_index)%particles(s)%obj
end do
END SUBROUTINE initEdge3DCartTria END SUBROUTINE initEdge3DCartTria
!Get nodes from surface !Get nodes from surface