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

Shifting towards constant number of particles per edge

Browse source 
So now each edge has the same number of particles and the weight of each
particle is calculated based on the surface of each edge compared to the
total one.

Only in 2DCyl, still to extend to other geometries.

Not perfect constant density, but the issue might be the node volume.
This commit is contained in:
Jorge Gonzalez 2024-07-09 17:49:42 +02:00
commit b36f9c2615
5 changed files with 36 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90
View file

@ -496,19 +496,19 @@ MODULE moduleMeshInputVTU
END DO
! Adjust node volume at axis
SELECT CASE(self%geometry)
CASE("Cyl")
DO n = 1, numNodes
r = self%nodes(n)%obj%getCoordinates()
IF (r(2) == 0.D0) THEN
self%nodes(n)%obj%v = self%nodes(n)%obj%v * 2.0D0!2.0D0/3.0D0
END IF
END DO
END SELECT
! ! Adjust node volume at axis
! SELECT CASE(self%geometry)
! CASE("Cyl")
! DO n = 1, numNodes
! r = self%nodes(n)%obj%getCoordinates()
! IF (r(2) == 0.D0) THEN
! self%nodes(n)%obj%v = self%nodes(n)%obj%v * 2.0D0!2.0D0/3.0D0
!
! END IF
!
! END DO
!
! END SELECT
!Call mesh connectivity
CALL self%connectMesh