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

Reorganization of boundaries EM

Browse source
This commit is contained in:
Jorge Gonzalez 2026-03-31 20:00:20 +02:00
commit f400bd46eb
1 changed files with 31 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -969,33 +969,6 @@ MODULE moduleMesh
end type boundaryEMGeneric end type boundaryEMGeneric
interface
module subroutine initDirichlet(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 initDirichlet
module subroutine initDirichletTime(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 initDirichletTime
module function boundaryEMName_to_Index(boundaryName) result(bp)
character(:), allocatable:: boundaryName
integer:: bp
end function boundaryEMName_to_Index
end interface
abstract interface abstract interface
! Apply boundary condition to the load vector for the Poission equation ! Apply boundary condition to the load vector for the Poission equation
subroutine applyEM_interface(self, vectorF) subroutine applyEM_interface(self, vectorF)
@ -1025,6 +998,24 @@ MODULE moduleMesh
END TYPE boundaryEMDirichlet END TYPE boundaryEMDirichlet
interface
module subroutine initDirichlet(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 initDirichlet
module subroutine applyDirichlet(self, vectorF)
class(boundaryEMDirichlet), intent(in):: self
real(8), intent(inout):: vectorF(:)
end subroutine applyDirichlet
end interface
TYPE, EXTENDS(boundaryEMGeneric):: boundaryEMDirichletTime TYPE, EXTENDS(boundaryEMGeneric):: boundaryEMDirichletTime
real(8):: potential real(8):: potential
real(8):: timeFactor real(8):: timeFactor
@ -1036,11 +1027,14 @@ MODULE moduleMesh
END TYPE boundaryEMDirichletTime END TYPE boundaryEMDirichletTime
interface interface
module subroutine applyDirichlet(self, vectorF) module subroutine initDirichletTime(self, config, object)
class(boundaryEMDirichlet), intent(in):: self use json_module
real(8), intent(inout):: vectorF(:)
end subroutine applyDirichlet class(boundaryEMGeneric), allocatable, intent(inout):: self
type(json_file), intent(inout):: config
character(:), allocatable, intent(in):: object
end subroutine initDirichletTime
module subroutine applyDirichletTime(self, vectorF) module subroutine applyDirichletTime(self, vectorF)
class(boundaryEMDirichletTime), intent(in):: self class(boundaryEMDirichletTime), intent(in):: self
@ -1064,6 +1058,12 @@ MODULE moduleMesh
! Update the EM boundary models ! Update the EM boundary models
interface interface
module function boundaryEMName_to_Index(boundaryName) result(bp)
character(:), allocatable:: boundaryName
integer:: bp
end function boundaryEMName_to_Index
module subroutine boundariesEM_update() module subroutine boundariesEM_update()
end subroutine boundariesEM_update end subroutine boundariesEM_update