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

Change in comments

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

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

@ -265,7 +265,8 @@ submodule(moduleMesh) boundaryEM
do n = 1, self%nNodes
node => mesh%nodes(nodes(n))%obj
! Minus sign to get the flux exiting the edge
! Minus sign to get the flux exiting the surface (opposite to the normal)
! Momentum is reescaled as value at the node has no data about the node volume
mom_nodes(n) = - dot_product(node%output(s)%mom, edge%normal)/(node%v*Vol_ref*n_ref)
end do
@ -407,7 +408,7 @@ submodule(moduleMesh) boundaryEM
do n = 1, self%nNodes
node => mesh%nodes(nodes(n))%obj
! Minus sign as we look at the values exiting the surface (opposite to the normal)
! Minus sign to get the flux exiting the surface (opposite to the normal)
! Momentum is reescaled as value at the node has no data about the node volume
mom_nodes(n) = - dot_product(node%output(s)%mom, edge%normal)/(node%v*Vol_ref*n_ref)