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

The integer part%sp that referenced the species index has been

Browse source 
substituted for a pointer to the species.
This commit is contained in:
Jorge Gonzalez 2021-03-28 15:55:26 +02:00
commit ec128902ad
13 changed files with 94 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/modules/moduleSolver.f90
View file

@ -154,7 +154,7 @@ MODULE moduleSolver
!$OMP DO
DO n=1, nPartOld
!Select species type
sp = partOld(n)%sp
sp = partOld(n)%species%n
!Checks if the species sp is update this iteration
IF (solver%pusher(sp)%pushSpecies) THEN
!Push particle
@ -722,7 +722,7 @@ MODULE moduleSolver
part%weight = part%weight * fractionVolume
fractionWeight = part%weight / species(part%sp)%obj%weight
fractionWeight = part%weight / part%species%weight
IF (fractionWeight >= 2.D0) THEN
nSplit = FLOOR(fractionWeight)