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

Rework of injection of particles with a special focus in 2DCyl to ensure an homogeneous distribution. #51

Merged
JorgeGonz merged 22 commits from issue/injection2DCyl into development 2024-07-11 18:51:43 +02:00
Conversation 3 Commits 22 Files changed 17 +39 -25
3 changed files with 39 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 667a2ecd93 - Show all commits

So, no idea...

Prev Next 
Basically things do not work. I've added a correction to the node volume
in the axis which gives okays results but still this is not perfect. I
need to find a better way to do things.

Also, I've noticed that the density changes with the size of the cells,
which should not happen! I'vw to check this issue.
Jorge Gonzalez 2024-07-09 21:57:32 +02:00
commit 667a2ecd93

24
src/modules/mesh/2DCyl/moduleMesh2DCyl.f90
View file

@ -597,18 +597,18 @@ MODULE moduleMesh2DCyl
!Computes total volume of the cell !Computes total volume of the cell
self%volume = r*detJ*PI8 !2*pi * 4 (weight of 1 point 2D-Gaussian integral) self%volume = r*detJ*PI8 !2*pi * 4 (weight of 1 point 2D-Gaussian integral)
!Computes volume per node !Computes volume per node
! self%n1%v = self%n1%v + fPsi(1)*self%volume Xi = (/-5.D-1, -5.D-1, 0.D0/)
! self%n2%v = self%n2%v + fPsi(2)*self%volume r = self%gatherF(Xi, 4, self%r)
! self%n3%v = self%n3%v + fPsi(3)*self%volume self%n1%v = self%n1%v + fPsi(1)*r*detJ*PI8
! self%n4%v = self%n4%v + fPsi(4)*self%volume Xi = (/ 5.D-1, -5.D-1, 0.D0/)
dZ = MAXVAL(self%z) - MIN(self%z) r = self%gatherF(Xi, 4, self%r)
r2 = MAXVAL(self%r) self%n2%v = self%n2%v + fPsi(2)*r*detJ*PI8
r1 = MINVAL(self%r) Xi = (/ 5.D-1, 5.D-1, 0.D0/)
r = self%gatherF(Xi, 4, self%r)
self%n1%v = self%n1%v + dZ/2.D0 * PI * ( r2**2 - 3.0D0*r1**2 + 2.0D0*r2*r1)*0.25D0 self%n3%v = self%n3%v + fPsi(3)*r*detJ*PI8
self%n2%v = self%n2%v + dZ/2.D0 * PI * ( r2**2 - 3.0D0*r1**2 + 2.0D0*r2*r1)*0.25D0 Xi = (/-5.D-1, 5.D-1, 0.D0/)
self%n3%v = self%n3%v + dZ/2.D0 * PI * (3.0D0*r2**2 - r1**2 - 2.0D0*r2*r1)*0.25D0 r = self%gatherF(Xi, 4, self%r)
self%n4%v = self%n4%v + dZ/2.D0 * PI * (3.0D0*r2**2 - r1**2 - 2.0D0*r2*r1)*0.25D0 self%n4%v = self%n4%v + fPsi(4)*r*detJ*PI8
END SUBROUTINE volumeQuad END SUBROUTINE volumeQuad

14
src/modules/mesh/inout/gmsh2/moduleMeshInputGmsh2.f90
View file

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

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

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