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

First verstion that seems to work!

Browse source
This commit is contained in:
Jorge Gonzalez 2026-03-14 18:53:05 +01:00
commit 7f9d6da2fc
3 changed files with 148 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/modules/init/moduleInput.f90
View file

@ -898,10 +898,10 @@ MODULE moduleInput
s_incident = speciesName2Index(speciesName)
call initQuasiNeutrality(bound, s_incident)
call quasiNeutrality_init(bound, s_incident)
CASE('outflowAdaptive')
ALLOCATE(boundaryOutflowAdaptive:: bound)
call outflowAdaptive_init(bound)
CASE DEFAULT
CALL criticalError('Boundary type ' // bType // ' undefined', 'readBoundary')
@ -1295,6 +1295,7 @@ MODULE moduleInput
! If the boundary for the species is linked to the one analysing, add the edges
if (associated(physicalSurfaces(ps)%particles(s)%obj, bound)) then
bound%edges = [bound%edges, physicalSurfaces(ps)%edges]
end if
end do
@ -1304,6 +1305,24 @@ MODULE moduleInput
allocate(bound%alpha(1:mesh%numEdges)) ! TODO: Change this so only the edges associated to the boundary are here
bound%alpha = 0.d0
type is(boundaryOutflowAdaptive)
! Loop over all physical surfaces
do ps = 1, nPhysicalSurfaces
! Loop over all species
do s = 1, nSpecies
! If the boundary for the species is linked to the one analysing, add the edges
if (associated(physicalSurfaces(ps)%particles(s)%obj, bound)) then
bound%edges = [bound%edges, physicalSurfaces(ps)%edges]
end if
end do
end do
allocate(bound%velocity_shift(1:mesh%numEdges)) ! TODO: Change this so only the edges associated to the boundary are here
bound%velocity_shift = 0.d0
end select
end do