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

Fixed problem with edges with more than 1 node

Browse source
This commit is contained in:
Jorge Gonzalez 2026-05-08 20:53:30 +02:00
commit 1d099993c9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/modules/mesh/moduleMesh@boundaryEM.f90
View file

@ -262,7 +262,7 @@ submodule(moduleMesh) boundaryEM
allocate(mom_nodes(1:edge%nNodes)) allocate(mom_nodes(1:edge%nNodes))
do s = 1, nSpecies do s = 1, nSpecies
mom_center = 0.0d0 mom_center = 0.0d0
do n = 1, self%nNodes do n = 1, edge%nNodes
node => mesh%nodes(nodes(n))%obj node => mesh%nodes(nodes(n))%obj
! Minus sign to get the flux exiting the surface (opposite to the normal) ! Minus sign to get the flux exiting the surface (opposite to the normal)
@ -405,7 +405,7 @@ submodule(moduleMesh) boundaryEM
allocate(mom_nodes(1:edge%nNodes)) allocate(mom_nodes(1:edge%nNodes))
do s = 1, nSpecies do s = 1, nSpecies
do n = 1, self%nNodes do n = 1, edge%nNodes
node => mesh%nodes(nodes(n))%obj node => mesh%nodes(nodes(n))%obj
! Minus sign to get the flux exiting the surface (opposite to the normal) ! Minus sign to get the flux exiting the surface (opposite to the normal)