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

I have to change the init of the edges to include the EM boundaries now

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-18 13:50:14 +01:00
commit 0379ea42c2
3 changed files with 32 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -72,17 +72,25 @@ MODULE moduleMesh
TYPE:: meshNodePointer
CLASS(meshNode), POINTER:: obj
CONTAINS
procedure, pass:: meshNodePointer_equal
generic:: operator(==) => meshNodePointer_equal
procedure, pass:: meshNodePointer_equal_type_type
procedure, pass:: meshNodePointer_equal_type_int
generic:: operator(==) => meshNodePointer_equal_type_type, meshNodePointer_equal_type_int
END TYPE meshNodePointer
interface
module function meshNodePointer_equal(self, other) result(isEqual)
module function meshNodePointer_equal_type_type(self, other) result(isEqual)
class(meshNodePointer), intent(in):: self, other
logical:: isEqual
end function meshNodePointer_equal
end function meshNodePointer_equal_type_type
module function meshNodePointer_equal_type_int(self, other) result(isEqual)
class(meshNodePointer), intent(in):: self
integer, intent(in):: other
logical:: isEqual
end function meshNodePointer_equal_type_int
end interface
@ -839,7 +847,7 @@ MODULE moduleMesh
module subroutine addNodes(self, nodes)
class(boundaryEMGeneric), intent(inout):: self
type(meshNodePointer), intent(in):: nodes(:)
integer, intent(in):: nodes(:)
end subroutine addNodes