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

Correction to ensure always correct direction in the injection

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-04 11:23:03 +01:00
commit 8ae558f3c8
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/modules/moduleInject.f90
View file

@ -391,8 +391,6 @@ MODULE moduleInject
partInj(n)%v = self%vMod*direction + (/ self%v(1)%obj%randomVel(), &
self%v(2)%obj%randomVel(), &
self%v(3)%obj%randomVel() /)
end do
!If injecting a no-drift distribution and velocity is negative, reflect
if ((self%vMod == 0.D0) .and. &
(dot_product(direction, partInj(n)%v) < 0.D0)) then
@ -400,6 +398,8 @@ MODULE moduleInject
end if
end do
!Obtain natural coordinates of particle in cell
partInj(n)%Xi = mesh%cells(partInj(n)%cell)%obj%phy2log(partInj(n)%r)
!Push new particle with the minimum time step