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

Forgot to save

Browse source 
Sorry.
This commit is contained in:
Jorge Gonzalez 2024-07-09 22:05:16 +02:00
commit d608639e77
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -499,7 +499,7 @@ MODULE moduleMeshInputVTU
! Adjust node volume at axis
SELECT CASE(self%geometry)
CASE("Cyl")
DO n = 1, numNodes
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