It seems to work, but I don't think this is quite useful for the manuscript
This commit is contained in:
parent
40163a0056
commit
eb10ae92a6
4 changed files with 71 additions and 12 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue