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

Minor changes, no improvement made yet

Browse source
This commit is contained in:
Jorge Gonzalez 2025-08-03 15:32:55 +02:00
commit 7e193b9fa8
3 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -705,8 +705,8 @@ MODULE moduleMesh2DCyl
dPsi = 0.D0
dPsi(1,:) = (/ -1.D0, 1.D0, 0.D0 /)
dPsi(2,:) = (/ -1.D0, 0.D0, 1.D0 /)
dPsi(1,1:3) = (/ -1.D0, 1.D0, 0.D0 /)
dPsi(2,1:3) = (/ -1.D0, 0.D0, 1.D0 /)
END FUNCTION dPsiTria