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

Almost done with EM, not to modify the EM module itself

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-18 15:14:59 +01:00
commit d211ed9a71
13 changed files with 165 additions and 97 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/modules/mesh/2DCyl/moduleMesh2DCyl.f90
View file

@ -133,7 +133,7 @@ MODULE moduleMesh2DCyl
!EDGE FUNCTIONS
!Init edge element
SUBROUTINE initEdge2DCyl(self, n, p, bt)
SUBROUTINE initEdge2DCyl(self, n, p, btPart, btEM)
USE moduleSpecies
USE moduleErrors
USE moduleConstParam, ONLY: PI
@ -142,7 +142,8 @@ MODULE moduleMesh2DCyl
CLASS(meshEdge2DCyl), INTENT(out):: self
INTEGER, INTENT(in):: n
INTEGER, INTENT(in):: p(:)
INTEGER, INTENT(in):: bt(1:nsPecies)
INTEGER, INTENT(in):: btPart(1:nsPecies)
integer, intent(in):: btEM
REAL(8), DIMENSION(1:3):: r1, r2
INTEGER:: s
@ -174,10 +175,13 @@ MODULE moduleMesh2DCyl
allocate(self%boundariesParticle(1:nSpecies))
!Assign functions to boundary
do s = 1, nSpecies
self%boundariesParticle(s)%obj => boundariesParticle(bt(s))%obj
self%boundariesParticle(s)%obj => boundariesParticle(btPart(s))%obj
end do
! Add nodes to EM boundary
call boundariesEMLinking(btEM)%model%addNodes(self%getNodes(self%nNodes))
END SUBROUTINE initEdge2DCyl
!Get nodes from edge