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 /)