diff --git a/src/modules/init/moduleInput.f90 b/src/modules/init/moduleInput.f90 index 8ab443f..97d68c1 100644 --- a/src/modules/init/moduleInput.f90 +++ b/src/modules/init/moduleInput.f90 @@ -1346,40 +1346,14 @@ MODULE moduleInput ! EM Boundaries do b = 1, nBoundariesEM associate(bound => boundariesEM(b)%obj) - select type(bound) - type is(boundaryEMDirichlet) - ! 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 + ! 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(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 + end do bound%nNodes = size(bound%nodes)