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

Init for boundaries particles

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

28
src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90
View file

@ -320,16 +320,9 @@ MODULE moduleMeshInputVTU
p(2) = connectivity(offsets(n) - 1)
p(3) = connectivity(offsets(n))
!Associate boundary condition procedure.
bt = getBoundaryId(entitiesID(n))
!Allocate edge
ALLOCATE(meshEdge3DCartTria:: self%edges(e)%obj)
!Init edge
CALL self%edges(e)%obj%init(n, p, bt, entitiesID(n))
DEALLOCATE(p)
END IF
CASE(2)
@ -339,9 +332,6 @@ MODULE moduleMeshInputVTU
p(1) = connectivity(offsets(n) - 1)
p(2) = connectivity(offsets(n))
!Associate boundary condition procedure.
bt = getBoundaryId(entitiesID(n))
!Allocate edge
SELECT CASE(self%geometry)
CASE("Cyl")
@ -352,10 +342,6 @@ MODULE moduleMeshInputVTU
END SELECT
!Init edge
CALL self%edges(e)%obj%init(n, p, bt, entitiesID(n))
DEALLOCATE(p)
END IF
CASE(1)
@ -364,9 +350,6 @@ MODULE moduleMeshInputVTU
ALLOCATE(p(1:1))
p(1) = connectivity(offsets(n))
!Associate boundary condition procedure.
bt = getBoundaryId(entitiesID(n))
!Allocate edge
SELECT CASE(self%geometry)
CASE("Rad")
@ -377,14 +360,17 @@ MODULE moduleMeshInputVTU
END SELECT
!Init edge
CALL self%edges(e)%obj%init(n, p, bt, entitiesID(n))
DEALLOCATE(p)
END IF
END SELECT
!Associate boundary condition procedure.
bt = physicalSurface_to_id(entitiesID(n))
!Init edge
CALL self%edges(e)%obj%init(n, p, boundariesParticleLinking(bt)%speciesIndex)
DEALLOCATE(p)
END DO
END SELECT