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

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

@ -682,11 +682,17 @@ MODULE moduleMesh
end subroutine initIonization
module subroutine initQuasiNeutrality(boundary, s_incident)
module subroutine quasiNeutrality_init(boundary, s_incident)
class(boundaryParticleGeneric), allocatable, intent(inout):: boundary
integer, intent(in):: s_incident
end subroutine initQuasiNeutrality
end subroutine quasiNeutrality_init
module subroutine outflowAdaptive_init(boundary)!, s_incident)
class(boundaryParticleGeneric), allocatable, intent(inout):: boundary
! integer, intent(in):: s_incident
end subroutine outflowAdaptive_init
module function boundaryParticleName_to_Index(boundaryName) result(bp)
character(:), allocatable:: boundaryName
@ -791,8 +797,9 @@ MODULE moduleMesh
!Boundary for quasi-neutral outflow adjusting reflection coefficient
type, public, extends(boundaryParticleGeneric):: boundaryOutflowAdaptive
real(8):: outflowCurrent
real(8):: reflectionFraction
real(8), allocatable:: velocity_shift(:)
integer:: s_incident ! species index of the incident species
type(meshEdgePointer), allocatable:: edges(:) !Array with edges
contains
procedure, pass:: apply => outflowAdaptive