JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Inout working

Browse source
This commit is contained in:
Jorge Gonzalez 2026-04-08 15:47:36 +02:00
commit 73f585ed8b
5 changed files with 66 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/modules/mesh/moduleMesh.f90
View file

@ -963,8 +963,8 @@ MODULE moduleMesh
integer:: nNodes
type(meshNodePointer), allocatable:: nodes(:)
procedure(updateEM_interface), pointer, pass:: update => null()
procedure(printEM_interface), pointer, pass:: print => null()
procedure(updateEM_interface), pointer, pass:: update => null()
procedure(printEMboundary_interface), pointer, pass:: print => null()
contains
procedure(applyEM_interface), deferred, pass:: apply
@ -989,13 +989,13 @@ MODULE moduleMesh
end subroutine updateEM_interface
! Write the values of the particle boundary model
subroutine printEM_interface(self, fileID)
subroutine printEMboundary_interface(self, fileID)
import boundaryEMGeneric
class(boundaryEMGeneric), intent(inout):: self
integer, intent(in):: fileID
end subroutine printEM_interface
end subroutine printEMboundary_interface
end interface
@ -1060,6 +1060,7 @@ MODULE moduleMesh
type, extends(boundaryEMGeneric):: boundaryEMFloating
real(8):: potential
real(8):: invC ! Inverse of the capacitance of the surface
real(8):: charge ! Charge accumulated on surface
type(meshEdgePointer), allocatable:: edges(:) !Array with edges
contains
! boundaryEMGeneric DEFERRED PROCEDURES