Init for boundaries particles

This commit is contained in:
Jorge Gonzalez 2026-02-16 20:05:23 +01:00
commit 6f8656bc21
6 changed files with 80 additions and 40 deletions

View file

@ -1,7 +1,7 @@
!moduleMeshBoundary: Boundary functions for the mesh edges
submodule(moduleMesh) boundary
contains
module function boundaryParticleName2Index(boundaryName) result(bp)
module function boundaryParticleName_to_Index(boundaryName) result(bp)
use moduleErrors
implicit none
@ -23,7 +23,7 @@ submodule(moduleMesh) boundary
end if
end function boundaryParticleName2Index
end function boundaryParticleName_to_Index
module subroutine initBoundary(self, config, object, b)
use json_module
@ -483,4 +483,23 @@ submodule(moduleMesh) boundary
end subroutine genericTransparent
function physicalSurface_to_id(physicalSurface) result(b)
implicit none
integer:: physicalSurface
integer:: b
integer:: bt
do bt=1, nPhysicalSurfaces
if (boundariesParticleLinking(bt)%physicalSurface == physicalSurface) then
b = bt
exit
end if
end do
end function physicalSurface_to_id
end submodule boundary