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

Correct input

Browse source
This commit is contained in:
Jorge Gonzalez 2026-03-14 20:03:17 +01:00
commit c325e12553
3 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -901,7 +901,12 @@ MODULE moduleInput
call quasiNeutrality_init(bound, s_incident) call quasiNeutrality_init(bound, s_incident)
CASE('outflowAdaptive') CASE('outflowAdaptive')
call outflowAdaptive_init(bound) call config%get(object // '.incident', speciesName, found)
if (.not. found) call criticalError("Incident species name not found for quasiNeutrality boundary model", 'readBoundary')
s_incident = speciesName2Index(speciesName)
call outflowAdaptive_init(bound, s_incident)
CASE DEFAULT CASE DEFAULT
CALL criticalError('Boundary type ' // bType // ' undefined', 'readBoundary') CALL criticalError('Boundary type ' // bType // ' undefined', 'readBoundary')

4
src/modules/mesh/moduleMesh.f90
View file

@ -688,9 +688,9 @@ MODULE moduleMesh
end subroutine quasiNeutrality_init end subroutine quasiNeutrality_init
module subroutine outflowAdaptive_init(boundary)!, s_incident) module subroutine outflowAdaptive_init(boundary, s_incident)
class(boundaryParticleGeneric), allocatable, intent(inout):: boundary class(boundaryParticleGeneric), allocatable, intent(inout):: boundary
! integer, intent(in):: s_incident integer, intent(in):: s_incident
end subroutine outflowAdaptive_init end subroutine outflowAdaptive_init

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

@ -491,10 +491,11 @@ submodule(moduleMesh) boundaryParticle
! outflowAdaptive ! outflowAdaptive
! Adjust the reflection coefficient of the boundary to maintain a quasi-neutral outflow ! Adjust the reflection coefficient of the boundary to maintain a quasi-neutral outflow
! Init ! Init
subroutine outflowAdaptive_init(boundary) subroutine outflowAdaptive_init(boundary, s_incident)
implicit none implicit none
class(boundaryParticleGeneric), allocatable, intent(inout):: boundary class(boundaryParticleGeneric), allocatable, intent(inout):: boundary
integer, intent(in):: s_incident
allocate(boundaryOutflowAdaptive:: boundary) allocate(boundaryOutflowAdaptive:: boundary)
@ -502,7 +503,7 @@ submodule(moduleMesh) boundaryParticle
type is(boundaryOutflowAdaptive) type is(boundaryOutflowAdaptive)
allocate(boundary%edges(0)) allocate(boundary%edges(0))
boundary%s_incident = 1 !TODO Make this an input parameter boundary%s_incident = s_incident
boundary%update => outflowAdaptive_update boundary%update => outflowAdaptive_update
boundary%print => outflowAdaptive_print boundary%print => outflowAdaptive_print