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

First attempt at working with a distribution function with u

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-03 11:48:43 +01:00
commit 2b6ea0ff84
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -220,6 +220,7 @@ MODULE moduleMeshBoundary
subroutine outflowAdaptive(edge, part) subroutine outflowAdaptive(edge, part)
use moduleRandom use moduleRandom
use moduleRefParam, only: v_ref
implicit none implicit none
class(meshEdge), intent(inout):: edge class(meshEdge), intent(inout):: edge
@ -228,14 +229,19 @@ MODULE moduleMeshBoundary
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 (random() < 0.844d0) then ! if (random() < 0.844d0) then
call reflection(edge, part) call reflection(edge, part)
part%v = part%v + 40e3/v_ref
else 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