Working towards compilation with submodules

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

View file

@ -4,7 +4,6 @@
! z == theta (unused)
MODULE moduleMesh2DCyl
USE moduleMesh
USE moduleMeshBoundary
IMPLICIT NONE
!Values for Gauss integral
@ -143,7 +142,6 @@ MODULE moduleMesh2DCyl
!Init edge element
SUBROUTINE initEdge2DCyl(self, n, p, bt, physicalSurface)
USE moduleSpecies
USE moduleBoundary
USE moduleErrors
USE moduleConstParam, ONLY: PI
IMPLICIT NONE
@ -181,7 +179,7 @@ MODULE moduleMesh2DCyl
self%normal = self%normal/NORM2(self%normal)
!Boundary index
self%boundary => boundary(bt)
self%boundary => boundaries(bt)
ALLOCATE(self%fboundary(1:nSpecies))
!Assign functions to boundary
DO s = 1, nSpecies