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

Still not working

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-04 20:15:05 +01:00
commit a1d5e20a09
1 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -232,13 +232,8 @@ 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 (dot_product(part%v,-edge%normal) > v_cut) then 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 = part%v + v_cut*edge%normal
part%v(1) = part%v(1) - v_cut
! print *,part%v(1)
call reflection(edge, part) call reflection(edge, part)
! print *,part%v(1)
! print *
else else
call transparent(edge, part) call transparent(edge, part)