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

First step of performance improvement

Browse source 
Finalysing first step of performance improvement focusing on reducing
iteration CPU time by improving calculation of basic element functions,
which took a lot of the CPU time
This commit is contained in:
Jorge Gonzalez 2023-01-06 21:02:54 +01:00
commit 746c5bea09
13 changed files with 260 additions and 252 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/modules/init/moduleInput.f90
View file

@ -354,7 +354,7 @@ MODULE moduleInput
CALL config%get(object // '.file', spFile, found)
!Reads node values at the nodes
filename = path // spFile
CALL mesh%readInitial(sp, filename, density, velocity, temperature)
CALL mesh%readInitial(filename, density, velocity, temperature)
!For each volume in the node, create corresponding particles
DO e = 1, mesh%numCells
!Scale variables
@ -378,9 +378,9 @@ MODULE moduleInput
ALLOCATE(partNew)
partNew%species => species(sp)%obj
partNew%r = mesh%cells(e)%obj%randPos()
partNew%xi = mesh%cells(e)%obj%phy2log(partNew%r)
partNew%Xi = mesh%cells(e)%obj%phy2log(partNew%r)
!Get mean velocity at particle position
fPsi = mesh%cells(e)%obj%fPsi(partNew%xi, nNodes)
fPsi = mesh%cells(e)%obj%fPsi(partNew%Xi, nNodes)
DO j = 1, nNodes
source(j) = velocity(nodes(j), 1)
@ -645,7 +645,7 @@ MODULE moduleInput
INTEGER:: e
CLASS(meshCell), POINTER:: vol
!Firstly, checks if the object 'interactions' exists
!Firstly, check if the object 'interactions' exists
CALL config%info('interactions', found)
IF (found) THEN
!Checks if MC collisions have been defined