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
|
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
|
! Container for boundary conditions
|
||||||
TYPE:: boundaryEMCont
|
TYPE:: boundaryEMCont
|
||||||
CLASS(boundaryEMGeneric), ALLOCATABLE:: obj
|
CLASS(boundaryEMGeneric), ALLOCATABLE:: obj
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue