First attempt at working with a distribution function with u
This commit is contained in:
parent
159f2e7620
commit
2b6ea0ff84
1 changed files with 10 additions and 4 deletions
|
|
@ -220,6 +220,7 @@ MODULE moduleMeshBoundary
|
|||
|
||||
subroutine outflowAdaptive(edge, part)
|
||||
use moduleRandom
|
||||
use moduleRefParam, only: v_ref
|
||||
implicit none
|
||||
|
||||
class(meshEdge), intent(inout):: edge
|
||||
|
|
@ -228,14 +229,19 @@ MODULE moduleMeshBoundary
|
|||
select type(bound => edge%boundary%bTypes(part%species%n)%obj)
|
||||
type is(boundaryOutflowAdaptive)
|
||||
|
||||
if (random() < 0.844d0) then
|
||||
call reflection(edge, part)
|
||||
|
||||
else
|
||||
! if (random() < 0.844d0) then
|
||||
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)
|
||||
|
||||
end if
|
||||
|
||||
! else
|
||||
! call transparent(edge, part)
|
||||
|
||||
! end if
|
||||
|
||||
end select
|
||||
|
||||
end subroutine outflowAdaptive
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue