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

2
src/modules/mesh/2DCart/moduleMesh2DCart.f90
View file

@ -701,6 +701,8 @@ MODULE moduleMesh2DCart
pDer(2, 1:2) = (/ DOT_PRODUCT(dPsi(1,1:3),self%y(1:3)), &
DOT_PRODUCT(dPsi(2,1:3),self%y(1:3)) /)
pDer(3,3) = 1.D0
END FUNCTION partialDerTria
!Gather electric field at position Xi

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