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

Seems are a bit better

Browse source 
There is still less density in the axis. I don't find a reason why.
There must be a modification to the weight...
This commit is contained in:
Jorge Gonzalez 2024-06-29 22:22:10 +02:00
commit 4cadfe5367
2 changed files with 6 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -586,32 +586,16 @@ MODULE moduleMesh2DCyl
!Computes volume per node
Xi = (/-5.D-1, -5.D-1, 0.D0/)
r = self%gatherF(Xi, 4, self%r)
self%n1%v = self%n1%v + fPsi(1)*r*detJ*PI8
IF (self%r(1) == 0.D0) THEN
self%n1%v = self%n1%v * PI / 2.D0
END IF
self%n1%v = self%n1%v + fPsi(1)*self%volume
Xi = (/ 5.D-1, -5.D-1, 0.D0/)
r = self%gatherF(Xi, 4, self%r)
self%n2%v = self%n2%v + fPsi(2)*r*detJ*PI8
IF (self%r(2) == 0.D0) THEN
self%n2%v = self%n2%v * PI / 2.D0
END IF
self%n2%v = self%n2%v + fPsi(2)*self%volume
Xi = (/ 5.D-1, 5.D-1, 0.D0/)
r = self%gatherF(Xi, 4, self%r)
self%n3%v = self%n3%v + fPsi(3)*r*detJ*PI8
IF (self%r(3) == 0.D0) THEN
self%n3%v = self%n3%v * PI / 2.D0
END IF
self%n3%v = self%n3%v + fPsi(3)*self%volume
Xi = (/-5.D-1, 5.D-1, 0.D0/)
r = self%gatherF(Xi, 4, self%r)
self%n4%v = self%n4%v + fPsi(4)*r*detJ*PI8
IF (self%r(4) == 0.D0) THEN
self%n4%v = self%n4%v * PI / 2.D0
END IF
self%n4%v = self%n4%v + fPsi(4)*self%volume
END SUBROUTINE volumeQuad