Skeleton of functions
This commit is contained in:
parent
2c49e47712
commit
1b864d6bed
2 changed files with 137 additions and 45 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue