Working towards compilation with submodules
This commit is contained in:
parent
fbbb0d5d13
commit
58e2fa7566
17 changed files with 1125 additions and 1008 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue