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

New and improved method to calculate collisions per iteration:

Browse source 
In each iteration, number of collisions are calculate as a REAL variable
(collFrac) and stored in each cell. The number of collisions is
calculated as FLOOR(collFrac) and, if it is >1 collisions are computed
as usual. Per each collision calculated, 1.0 is removed from collFrac
This commit is contained in:
Jorge Gonzalez 2021-01-02 14:09:27 +01:00
commit 874d573e89
7 changed files with 26 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fpakc.f90
View file

@ -67,7 +67,7 @@ PROGRAM fpakc
tColl = omp_get_wtime()
!$OMP END SINGLE
CALL doCollisions(t)
CALL doCollisions()
!$OMP SINGLE
tColl = omp_get_wtime() - tColl