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

Try to impose a reflection with drag

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-04 11:23:26 +01:00
commit 4aa6e5aab2
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/modules/mesh/moduleMeshBoundary.f90
View file

@ -225,23 +225,26 @@ MODULE moduleMeshBoundary
class(meshEdge), intent(inout):: edge class(meshEdge), intent(inout):: edge
class(particle), intent(inout):: part class(particle), intent(inout):: part
real(8):: v_cut
v_cut = 2.d0 * 40.d3/v_ref !This will be the drag velocity of the ions in the future
select type(bound => edge%boundary%bTypes(part%species%n)%obj) select type(bound => edge%boundary%bTypes(part%species%n)%obj)
type is(boundaryOutflowAdaptive) type is(boundaryOutflowAdaptive)
if (dot_product(part%v,-edge%normal) > v_cut) then
! print *,part%v(1), v_cut
! part%v = part%v + v_cut*edge%normal
part%v(1) = part%v(1) - v_cut
! print *,part%v(1)
call reflection(edge, part)
! print *,part%v(1)
! print *
! if (random() < 0.844d0) then else
call reflection(edge, part)
part%v = part%v + 40e3/v_ref
if (dot_product(part%v, edge%normal) <= 0.d0) then
call transparent(edge, part) call transparent(edge, part)
end if end if
! else
! call transparent(edge, part)
! end if
end select end select
end subroutine outflowAdaptive end subroutine outflowAdaptive