Skeleton of new free current BC
This commit is contained in:
parent
ab120c0e8d
commit
bd67bd6606
1 changed files with 25 additions and 0 deletions
|
|
@ -1113,6 +1113,31 @@ MODULE moduleMesh
|
|||
|
||||
end interface
|
||||
|
||||
! Calculates the electric field normal to the surface based on Ampere's law (without magnetic field)
|
||||
type, extends(boundaryEMGeneric):: boundaryEMFreeCurrent
|
||||
type(meshEdgePointer), allocatable:: electricField(:) ! Electric field in each edge
|
||||
contains
|
||||
procedure, pass:: apply => applyFreeCurrent
|
||||
|
||||
end type boundaryEMFreeCurrent
|
||||
|
||||
interface
|
||||
module subroutine initFreeCurrent(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 initFreeCurrent
|
||||
|
||||
module subroutine applyFreeCurrent(self, vectorF)
|
||||
class(boundaryEMFreeCurrent), intent(in):: self
|
||||
real(8), intent(inout):: vectorF(:)
|
||||
|
||||
end subroutine applyFreeCurrent
|
||||
|
||||
end interface
|
||||
! Container for boundary conditions
|
||||
TYPE:: boundaryEMCont
|
||||
CLASS(boundaryEMGeneric), ALLOCATABLE:: obj
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue