Almost compiling. Issue was in generating objects for submodules
This commit is contained in:
parent
135f1f464c
commit
6b4d4fbcc3
3 changed files with 9 additions and 15 deletions
|
|
@ -11,7 +11,6 @@ MODULE moduleMesh
|
|||
TYPE, PUBLIC, ABSTRACT:: meshElement
|
||||
!Index
|
||||
INTEGER:: n = 0
|
||||
CONTAINS
|
||||
|
||||
END TYPE meshElement
|
||||
|
||||
|
|
@ -523,9 +522,9 @@ MODULE moduleMesh
|
|||
PROCEDURE(printEM_interface), POINTER, PASS:: printEM => NULL()
|
||||
PROCEDURE(printAverage_interface), POINTER, PASS:: printAverage => NULL()
|
||||
CONTAINS
|
||||
!GENERIC PROCEDURES
|
||||
PROCEDURE, PASS:: constructGlobalK
|
||||
PROCEDURE, PASS:: doCoulomb
|
||||
!GENERIC PROCEDURES
|
||||
PROCEDURE, PASS:: constructGlobalK
|
||||
PROCEDURE, PASS:: doCoulomb
|
||||
|
||||
END TYPE meshParticles
|
||||
|
||||
|
|
@ -571,8 +570,6 @@ MODULE moduleMesh
|
|||
|
||||
!Collision (MCC) mesh
|
||||
TYPE, EXTENDS(meshGeneric):: meshCollisions
|
||||
CONTAINS
|
||||
!GENERIC PROCEDURES
|
||||
|
||||
END TYPE meshCollisions
|
||||
|
||||
|
|
@ -836,13 +833,11 @@ MODULE moduleMesh
|
|||
|
||||
TYPE:: boundaryParticleCont
|
||||
CLASS(boundaryParticleGeneric), ALLOCATABLE:: obj
|
||||
CONTAINS
|
||||
|
||||
END TYPE boundaryParticleCont
|
||||
|
||||
type:: boundaryParticlePointer
|
||||
class(boundaryParticleGeneric), pointer:: obj
|
||||
contains
|
||||
|
||||
end type boundaryParticlePointer
|
||||
|
||||
|
|
@ -861,7 +856,7 @@ MODULE moduleMesh
|
|||
|
||||
procedure(updateEM_interface), pointer, pass:: update => null()
|
||||
contains
|
||||
procedure, pass:: init => initBoundaryEM
|
||||
procedure, pass:: init => initBoundaryEM
|
||||
procedure(applyEM_interface), deferred, pass:: apply
|
||||
|
||||
end type boundaryEMGeneric
|
||||
|
|
@ -908,7 +903,6 @@ MODULE moduleMesh
|
|||
! Extended types
|
||||
TYPE, EXTENDS(boundaryEMGeneric):: boundaryEMDirichlet
|
||||
REAL(8):: potential
|
||||
|
||||
CONTAINS
|
||||
! boundaryEMGeneric DEFERRED PROCEDURES
|
||||
PROCEDURE, PASS:: apply => applyDirichlet
|
||||
|
|
@ -918,7 +912,6 @@ MODULE moduleMesh
|
|||
TYPE, EXTENDS(boundaryEMGeneric):: boundaryEMDirichletTime
|
||||
real(8):: potential
|
||||
type(table1D):: temporalProfile
|
||||
|
||||
contains
|
||||
! boundaryEMGeneric DEFERRED PROCEDURES
|
||||
procedure, pass:: apply => applyDirichletTime
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue