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

Working towards compilation with submodules

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-09 13:52:52 +01:00
commit 58e2fa7566
17 changed files with 1125 additions and 1008 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4,7 +4,6 @@
! z == unused
MODULE moduleMesh1DRad
USE moduleMesh
USE moduleMeshBoundary
IMPLICIT NONE
REAL(8), PARAMETER:: corSeg(1:3) = (/ -DSQRT(3.D0/5.D0), 0.D0, DSQRT(3.D0/5.D0) /)
@ -103,7 +102,6 @@ MODULE moduleMesh1DRad
!Init edge element
SUBROUTINE initEdge1DRad(self, n, p, bt, physicalSurface)
USE moduleSpecies
USE moduleBoundary
USE moduleErrors
IMPLICIT NONE
@ -128,7 +126,7 @@ MODULE moduleMesh1DRad
self%normal = (/ 1.D0, 0.D0, 0.D0 /)
!Boundary index
self%boundary => boundary(bt)
self%boundary => boundaries(bt)
ALLOCATE(self%fboundary(1:nSpecies))
!Assign functions to boundary
DO s = 1, nSpecies