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

Rewriting surfaces and boundaries

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-19 20:23:13 +01:00
commit 1b32dfdfd6
6 changed files with 170 additions and 152 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/modules/mesh/moduleMesh@boundaryParticle.f90
View file

@ -495,25 +495,4 @@ submodule(moduleMesh) boundaryParticle
end subroutine genericTransparent
function physicalSurface_to_boundaryParticleId(boundaryArray, physicalSurface) result(b)
implicit none
type(boundaryParticleLinking):: boundaryArray(:)
integer:: physicalSurface
integer:: b
integer:: bt
b = 0
do bt=1, nPhysicalSurfaces
if (boundaryArray(bt)%physicalSurface == physicalSurface) then
b = bt
exit
end if
end do
end function physicalSurface_to_boundaryParticleId
end submodule boundaryParticle