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

Almost done with EM, not to modify the EM module itself

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-18 15:14:59 +01:00
commit d211ed9a71
13 changed files with 165 additions and 97 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -173,7 +173,7 @@ MODULE moduleMeshInputVTU
REAL(8), ALLOCATABLE, DIMENSION(:):: coordinates
INTEGER:: n, e, c
INTEGER, ALLOCATABLE:: p(:)
INTEGER:: bt
INTEGER:: btPart, btEM
fileID = 10
@ -365,10 +365,12 @@ MODULE moduleMeshInputVTU
END SELECT
!Associate boundary condition procedure.
bt = physicalSurface_to_id(boundariesParticleLinking,entitiesID(n))
btPart = physicalSurface_to_id(boundariesParticleLinking, entitiesID(n))
btEM = physicalSurface_to_id(boundariesEMLinking, entitiesID(n))
!Init edge
CALL self%edges(e)%obj%init(n, p, boundariesParticleLinking(bt)%speciesIndex)
CALL self%edges(e)%obj%init(n, p, boundariesParticleLinking(btPart)%speciesIndex, btEM)
DEALLOCATE(p)
END DO