Organizing things
Move the array of pointers to the nodes to moduleMesh.
This commit is contained in:
parent
e4dfba45f8
commit
6f185c4188
2 changed files with 7 additions and 8 deletions
|
|
@ -59,6 +59,13 @@ MODULE moduleMesh
|
||||||
|
|
||||||
END TYPE meshNodeCont
|
END TYPE meshNodeCont
|
||||||
|
|
||||||
|
! Array of pointers to nodes.
|
||||||
|
TYPE:: meshNodePointer
|
||||||
|
CLASS(meshNode), POINTER:: obj
|
||||||
|
CONTAINS
|
||||||
|
|
||||||
|
END TYPE meshNodePointer
|
||||||
|
|
||||||
!Type for array of boundary functions (one per species)
|
!Type for array of boundary functions (one per species)
|
||||||
TYPE, PUBLIC:: fBoundaryGeneric
|
TYPE, PUBLIC:: fBoundaryGeneric
|
||||||
PROCEDURE(boundary_interface), POINTER, NOPASS:: apply => NULL()
|
PROCEDURE(boundary_interface), POINTER, NOPASS:: apply => NULL()
|
||||||
|
|
|
||||||
|
|
@ -4,14 +4,6 @@ MODULE moduleEM
|
||||||
USE moduleTable
|
USE moduleTable
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
|
|
||||||
! Array of pointers to nodes.
|
|
||||||
!TODO: This is probably better in moduleMesh as multiple modules could use this.
|
|
||||||
TYPE:: meshNodePointer
|
|
||||||
CLASS(meshNode), POINTER:: obj
|
|
||||||
CONTAINS
|
|
||||||
|
|
||||||
END TYPE meshNodePointer
|
|
||||||
|
|
||||||
! Generic type for electromagnetic boundary conditions
|
! Generic type for electromagnetic boundary conditions
|
||||||
TYPE, PUBLIC, ABSTRACT:: boundaryEMGeneric
|
TYPE, PUBLIC, ABSTRACT:: boundaryEMGeneric
|
||||||
INTEGER:: nNodes
|
INTEGER:: nNodes
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue