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

Finally, using the right center for each element

Browse source
This commit is contained in:
Jorge Gonzalez 2026-03-12 19:04:47 +01:00
commit 9f4d357593
8 changed files with 83 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/modules/mesh/moduleMesh.f90
View file

@ -119,6 +119,7 @@ MODULE moduleMesh
PROCEDURE(intersectionEdge_interface), DEFERRED, PASS:: intersection
PROCEDURE(randPosEdge_interface), DEFERRED, PASS:: randPos
procedure(centerEdge_interface), deferred, pass:: center
procedure(centerXiEdge_interface), deferred, nopass:: centerXi
PROCEDURE(fPsi_interface), DEFERRED, NOPASS:: fPsi
!Gather value and spatial derivative on the nodes at position Xi
PROCEDURE, PASS, PRIVATE:: gatherF_edge_scalar
@ -185,6 +186,12 @@ MODULE moduleMesh
END FUNCTION centerEdge_interface
! Returns the center point of an edge in natural coordinates
FUNCTION centerXiEdge_interface() RESULT(Xi)
REAL(8):: Xi(1:3)
END FUNCTION centerXiEdge_interface
END INTERFACE
!Containers for edges in the mesh