Init for boundaries particles
This commit is contained in:
parent
6b96d56c9d
commit
6f8656bc21
6 changed files with 80 additions and 40 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue