From a9cc3bba50a3f0cdecdd927b5714f27cde2cac0c Mon Sep 17 00:00:00 2001 From: JGonzalez Date: Fri, 10 Apr 2026 22:38:02 +0200 Subject: [PATCH] While checking some things, I noticed 1DRad edge was missing geometry factor --- src/modules/mesh/1DRad/moduleMesh1DRad.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/modules/mesh/1DRad/moduleMesh1DRad.f90 b/src/modules/mesh/1DRad/moduleMesh1DRad.f90 index 99aef3e..79517d3 100644 --- a/src/modules/mesh/1DRad/moduleMesh1DRad.f90 +++ b/src/modules/mesh/1DRad/moduleMesh1DRad.f90 @@ -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 /)