Skeleton of functions

This commit is contained in:
Jorge Gonzalez 2026-04-06 18:01:48 +02:00
commit 1b864d6bed
2 changed files with 137 additions and 45 deletions

View file

@ -990,6 +990,7 @@ MODULE moduleMesh
end interface
! Extended types
! Dirichlet: Constant potential value
TYPE, EXTENDS(boundaryEMGeneric):: boundaryEMDirichlet
REAL(8):: potential
CONTAINS
@ -1016,6 +1017,7 @@ MODULE moduleMesh
end interface
! Dirichlet time: time-dependent potential value
TYPE, EXTENDS(boundaryEMGeneric):: boundaryEMDirichletTime
real(8):: potential
real(8):: timeFactor
@ -1044,6 +1046,33 @@ MODULE moduleMesh
end interface
! Floating: Floating surface, ie, zero net current
type, extends(boundaryEMGeneric):: boundaryEMFloating
real(8):: potential
contains
! boundaryEMGeneric DEFERRED PROCEDURES
procedure, pass:: apply => applyFloating
end type boundaryEMFloating
interface
module subroutine initFloating(self, config, object)
use json_module
class(boundaryEMGeneric), allocatable, intent(inout):: self
type(json_file), intent(inout):: config
character(:), allocatable, intent(in):: object
end subroutine initFloating
module subroutine applyFloating(self, vectorF)
class(boundaryEMFloating), intent(in):: self
real(8), intent(inout):: vectorF(:)
end subroutine applyFloating
end interface
! Container for boundary conditions
TYPE:: boundaryEMCont
CLASS(boundaryEMGeneric), ALLOCATABLE:: obj