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

8
src/modules/mesh/1DRad/moduleMesh1DRad.f90
View file

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