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

Small bugfix when testing examples

Browse source 
While testing the examples distributed with the code, a few errors were
found and fixed, mostly related with the K matrix in 1D geometry and
reading values from initial conditions for species.
This commit is contained in:
Jorge Gonzalez 2023-01-07 10:47:18 +01:00
commit 1c5b887a6d
4 changed files with 25 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/modules/mesh/1DCart/moduleMesh1DCart.f90
View file

@ -324,7 +324,7 @@ MODULE moduleMesh1DCart
REAL(8):: Xi(1:3)
REAL(8):: dPsi(1:3, 1:2)
REAL(8):: pDer(1:3, 1:3)
REAL(8):: invJ(1:3,1:3), detJ
REAL(8):: invJ(1:3, 1:3), detJ
INTEGER:: l
localK = 0.D0
@ -337,8 +337,8 @@ MODULE moduleMesh1DCart
pDer = self%partialDer(2, dPsi)
detJ = self%detJac(pDer)
invJ = self%invJac(pDer)
localK = localK + MATMUL(RESHAPE(MATMUL(invJ,dPsi), (/ 2, 1/)), &
RESHAPE(MATMUL(invJ,dPsi), (/ 1, 2/)))* &
localK = localK + MATMUL(TRANSPOSE(MATMUL(invJ,dPsi)), &
MATMUL(invJ,dPsi))* &
wSeg(l)/detJ
END DO