It seems to work, but I don't think this is quite useful for the manuscript

This commit is contained in:
Jorge Gonzalez 2026-04-08 15:17:30 +02:00
commit eb10ae92a6
4 changed files with 71 additions and 12 deletions

View file

@ -964,6 +964,7 @@ MODULE moduleMesh
type(meshNodePointer), allocatable:: nodes(:)
procedure(updateEM_interface), pointer, pass:: update => null()
procedure(printEM_interface), pointer, pass:: print => null()
contains
procedure(applyEM_interface), deferred, pass:: apply
@ -987,6 +988,15 @@ MODULE moduleMesh
end subroutine updateEM_interface
! Write the values of the particle boundary model
subroutine printEM_interface(self, fileID)
import boundaryEMGeneric
class(boundaryEMGeneric), intent(inout):: self
integer, intent(in):: fileID
end subroutine printEM_interface
end interface
! Extended types
@ -1049,6 +1059,8 @@ MODULE moduleMesh
! Floating: Floating surface, ie, zero net current
type, extends(boundaryEMGeneric):: boundaryEMFloating
real(8):: potential
real(8):: invC ! Inverse of the capacitance of the surface
type(meshEdgePointer), allocatable:: edges(:) !Array with edges
contains
! boundaryEMGeneric DEFERRED PROCEDURES
procedure, pass:: apply => applyFloating
@ -1097,6 +1109,10 @@ MODULE moduleMesh
end subroutine boundariesEM_update
module subroutine boundariesEM_write()
end subroutine boundariesEM_write
end interface
! PHYSICAL SURFACES LINKING TO MESH ELEMENTS