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

While checking some things, I noticed 1DRad edge was missing geometry factor

Browse source
This commit is contained in:
Jorge Gonzalez 2026-04-10 22:38:02 +02:00
commit a9cc3bba50
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -103,6 +103,7 @@ MODULE moduleMesh1DRad
SUBROUTINE initEdge1DRad(self, n, p, ps)
USE moduleSpecies, only:nSpecies
USE moduleErrors
use moduleConstParam, only: pi4
IMPLICIT NONE
CLASS(meshEdge1DRad), INTENT(out):: self
@ -121,7 +122,7 @@ MODULE moduleMesh1DRad
self%r = r1(1)
self%surface = 1.D0
self%surface = pi4 * self%r**2
self%normal = (/ 1.D0, 0.D0, 0.D0 /)