Almost compiling. Issue was in generating objects for submodules

This commit is contained in:
Jorge Gonzalez 2026-02-24 20:18:06 +01:00
commit 6b4d4fbcc3
3 changed files with 9 additions and 15 deletions

View file

@ -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