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

12
src/modules/mesh/inout/gmsh2/moduleMeshInputGmsh2.f90
View file

@ -160,9 +160,6 @@ MODULE moduleMeshInputGmsh2
READ(10, *) n, elemType, eTemp, boundaryType
BACKSPACE(10)
!Associate boundary condition procedure.
bt = getBoundaryID(boundaryType)
SELECT CASE(elemType)
CASE(2)
!Triangular surface
@ -177,8 +174,6 @@ MODULE moduleMeshInputGmsh2
CASE (2)
ALLOCATE(p(1:2))
READ(10,*) n, elemType, eTemp, boundaryType, eTemp, p(1:2)
!Associate boundary condition procedure.
bt = getBoundaryId(boundaryType)
SELECT CASE(self%geometry)
CASE("Cyl")
@ -192,8 +187,6 @@ MODULE moduleMeshInputGmsh2
CASE(1)
ALLOCATE(p(1:1))
READ(10, *) n, elemType, eTemp, boundaryType, eTemp, p(1)
!Associate boundary condition
bt = getBoundaryId(boundaryType)
SELECT CASE(self%geometry)
CASE("Rad")
ALLOCATE(meshEdge1DRad:: self%edges(e)%obj)
@ -205,7 +198,10 @@ MODULE moduleMeshInputGmsh2
END SELECT
CALL self%edges(e)%obj%init(n, p, bt, boundaryType)
!Associate boundary condition procedure.
bt = physicalSurface_to_id(boundaryType)
CALL self%edges(e)%obj%init(n, p, boundariesParticleLinking(bt)%speciesIndex)
DEALLOCATE(p)
END DO