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

Common scatter subroutine

Browse source 
All subroutines of scattering particle properties to the nodes of a
volume have been converged into one in moduleMesh.
This commit is contained in:
Jorge Gonzalez 2021-04-21 23:40:58 +02:00
commit 35bd61fda9
9 changed files with 39 additions and 408 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/modules/moduleInput.f90
View file

@ -345,11 +345,11 @@ MODULE moduleInput
partNew%v(2) = velocityXi(2) + vTh*randomMaxwellian()
partNew%v(3) = velocityXi(3) + vTh*randomMaxwellian()
partNew%vol = e
IF (ASSOCIATED(meshForMCC, mesh)) THEN
partNew%volColl = partNew%vol
IF (doubleMesh) THEN
partNew%volColl = findCellBrute(meshColl, partNew%r)
ELSE
partNew%volColl = findCellBrute(meshColl, partNew%r)
partNew%volColl = partNew%vol
END IF
partNew%n_in = .TRUE.