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

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

@ -1,7 +1,7 @@
!moduleMeshBoundary: Boundary functions for the mesh edges
submodule(moduleMesh) boundaryParticle
contains
module function boundaryParticleName_to_Index(boundaryName) result(bp)
function boundaryParticleName_to_Index(boundaryName) result(bp)
use moduleErrors
implicit none
@ -19,7 +19,7 @@ submodule(moduleMesh) boundaryParticle
end do
if (bp == 0) then
call criticalError('Boundary ' // boundaryName // ' not found', 'boundaryName2Index')
call criticalError('Boundary ' // boundaryName // ' not found', 'boundaryParticleName_to_Index')
end if
@ -503,6 +503,7 @@ submodule(moduleMesh) boundaryParticle
integer:: b
integer:: bt
b = 0
do bt=1, nPhysicalSurfaces
if (boundaryArray(bt)%physicalSurface == physicalSurface) then
b = bt