Forgot to link edge to boundary procedures. 1D case working right now
This commit is contained in:
parent
31f0b510bc
commit
9c30051663
5 changed files with 35 additions and 0 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue