JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

All EM boundaries should contain the nodes they apply to, regardless of the type

Browse source
This commit is contained in:
Jorge Gonzalez 2026-04-14 10:50:40 +02:00
commit fa5f037d41
1 changed files with 7 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/modules/init/moduleInput.f90
View file

@ -1346,8 +1346,6 @@ MODULE moduleInput
! EM Boundaries ! EM Boundaries
do b = 1, nBoundariesEM do b = 1, nBoundariesEM
associate(bound => boundariesEM(b)%obj) associate(bound => boundariesEM(b)%obj)
select type(bound)
type is(boundaryEMDirichlet)
! Loop over all physical surfaces ! Loop over all physical surfaces
do ps = 1, nPhysicalSurfaces do ps = 1, nPhysicalSurfaces
! If the boundary for the species is linked to the one analysing, add the edges ! If the boundary for the species is linked to the one analysing, add the edges
@ -1357,30 +1355,6 @@ MODULE moduleInput
end do end do
type is(boundaryEMDirichletTime)
! Loop over all physical surfaces
do ps = 1, nPhysicalSurfaces
! If the boundary for the species is linked to the one analysing, add the edges
if (associated(physicalSurfaces(ps)%EM, bound)) then
bound%nodes = [bound%nodes, physicalSurfaces(ps)%nodes]
end if
end do
type is(boundaryEMFloating)
! Loop over all physical surfaces
do ps = 1, nPhysicalSurfaces
! If the boundary for the species is linked to the one analysing, add the edges
if (associated(physicalSurfaces(ps)%EM, bound)) then
bound%nodes = [bound%nodes, physicalSurfaces(ps)%nodes]
bound%edges = [bound%edges, physicalSurfaces(ps)%edges]
end if
end do
end select
bound%nNodes = size(bound%nodes) bound%nNodes = size(bound%nodes)
end associate end associate