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

12
src/modules/mesh/1DRad/moduleMesh1DRad.f90
View file

@ -98,7 +98,7 @@ MODULE moduleMesh1DRad
!EDGE FUNCTIONS
!Init edge element
SUBROUTINE initEdge1DRad(self, n, p, bt)
SUBROUTINE initEdge1DRad(self, n, p, btPart, btEM)
USE moduleSpecies, only:nSpecies
USE moduleErrors
IMPLICIT NONE
@ -106,7 +106,8 @@ MODULE moduleMesh1DRad
CLASS(meshEdge1DRad), 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
INTEGER:: s
@ -126,11 +127,14 @@ MODULE moduleMesh1DRad
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
END SUBROUTINE initEdge1DRad
! Add nodes to EM boundary
call boundariesEMLinking(btEM)%model%addNodes(self%getNodes(self%nNodes))
end subroutine initEdge1DRad
!Get nodes from edge
PURE FUNCTION getNodes1DRad(self, nNodes) RESULT(n)