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

Particles are injected in each iteration and pushed with tauMin when

Browse source 
injected. Then, particles are pushed as normal in their own time step.
This commit is contained in:
Jorge Gonzalez 2021-01-02 16:31:31 +01:00
commit 5516e46ec3
3 changed files with 34 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

2
runs/Argon_Expansion/base_case.json
View file

@ -41,7 +41,7 @@
"radius": 1.88e-10 "radius": 1.88e-10
}, },
"case": { "case": {
"tau": [1.0e-4, 1.0e-6], "tau": [1.0e-6, 1.0e-6],
"time": 4.0e-3, "time": 4.0e-3,
"pusher": ["2DCylNeutral", "2DCylNeutral"], "pusher": ["2DCylNeutral", "2DCylNeutral"],
"WeightingScheme": "Volume" "WeightingScheme": "Volume"

28
src/modules/moduleInject.f90
View file

@ -92,11 +92,11 @@ MODULE moduleInject
SELECT CASE(units) SELECT CASE(units)
CASE ("sccm") CASE ("sccm")
!Standard cubic centimeter per minute !Standard cubic centimeter per minute
self%nParticles = INT(flow*sccm2atomPerS*tau(self%sp)*ti_ref/species(sp)%obj%weight) self%nParticles = INT(flow*sccm2atomPerS*tauMin*ti_ref/species(sp)%obj%weight)
CASE ("A") CASE ("A")
!Input current in Ampers !Input current in Ampers
self%nParticles = INT(flow*tau(self%sp)*ti_ref/(qe*species(sp)%obj%weight)) self%nParticles = INT(flow*tauMin*ti_ref/(qe*species(sp)%obj%weight))
CASE DEFAULT CASE DEFAULT
CALL criticalError("No support for units: " // units, 'initInject') CALL criticalError("No support for units: " // units, 'initInject')
@ -106,7 +106,6 @@ MODULE moduleInject
IF (self%nParticles == 0) CALL criticalError("The number of particles for inject is 0.", 'initInject') IF (self%nParticles == 0) CALL criticalError("The number of particles for inject is 0.", 'initInject')
!Gets the edge elements from which particles are injected !Gets the edge elements from which particles are injected
!TODO: Improve this A LOT
DO e = 1, mesh%numEdges DO e = 1, mesh%numEdges
phSurface(e) = mesh%edges(e)%obj%physicalSurface phSurface(e) = mesh%edges(e)%obj%physicalSurface
@ -114,7 +113,6 @@ MODULE moduleInject
self%nEdges = COUNT(phSurface == physicalSurface) self%nEdges = COUNT(phSurface == physicalSurface)
ALLOCATE(inject(i)%edges(1:self%nEdges)) ALLOCATE(inject(i)%edges(1:self%nEdges))
! ALLOCATE(inject(i)%weight(1:self%nEdges))
et = 0 et = 0
DO e=1, mesh%numEdges DO e=1, mesh%numEdges
IF (mesh%edges(e)%obj%physicalSurface == physicalSurface) THEN IF (mesh%edges(e)%obj%physicalSurface == physicalSurface) THEN
@ -124,7 +122,8 @@ MODULE moduleInject
END IF END IF
END DO END DO
! self%sumWeight = SUM(self%weight)
nPartInj = nPartInj + self%nParticles
END SUBROUTINE initInject END SUBROUTINE initInject
@ -137,17 +136,12 @@ MODULE moduleInject
INTEGER:: i INTEGER:: i
!$OMP SINGLE !$OMP SINGLE
nPartInj = 0
DO i = 1, nInject
IF (solver%pusher(inject(i)%sp)%pushSpecies) nPartInj = nPartInj + inject(i)%nParticles
END DO
IF (ALLOCATED(partInj)) DEALLOCATE(partInj) IF (ALLOCATED(partInj)) DEALLOCATE(partInj)
ALLOCATE(partInj(1:nPartInj)) ALLOCATE(partInj(1:nPartInj))
!$OMP END SINGLE !$OMP END SINGLE
DO i=1, nInject DO i=1, nInject
IF (solver%pusher(inject(i)%sp)%pushSpecies) CALL inject(i)%addParticles() CALL inject(i)%addParticles()
END DO END DO
END SUBROUTINE doInjects END SUBROUTINE doInjects
@ -206,19 +200,13 @@ MODULE moduleInject
CLASS(injectGeneric), INTENT(in):: self CLASS(injectGeneric), INTENT(in):: self
INTEGER:: randomX INTEGER:: randomX
INTEGER:: i!, j
INTEGER, SAVE:: nMin, nMax !Min and Max index in partInj array INTEGER, SAVE:: nMin, nMax !Min and Max index in partInj array
INTEGER:: n INTEGER:: n
CLASS(meshEdge), POINTER:: randomEdge CLASS(meshEdge), POINTER:: randomEdge
!Insert particles !Insert particles
!$OMP SINGLE !$OMP SINGLE
nMin = 0 nMin = SUM(inject(1:(self%id-1))%nParticles) + 1
DO i = 1, self%id - 1
IF (solver%pusher(inject(i)%sp)%pushSpecies) nMin = nMin + inject(i)%nParticles
END DO
nMin = nMin + 1
nMax = nMin + self%nParticles - 1 nMax = nMin + self%nParticles - 1
!Assign particle type !Assign particle type
partInj(nMin:nMax)%sp = self%sp partInj(nMin:nMax)%sp = self%sp
@ -254,8 +242,8 @@ MODULE moduleInject
self%v(2)%obj%randomVel(), & self%v(2)%obj%randomVel(), &
self%v(3)%obj%randomVel() /) self%v(3)%obj%randomVel() /)
!Push new particle !Push new particle with the minimum time step
CALL solver%pusher(self%sp)%pushParticle(partInj(n)) CALL solver%pusher(self%sp)%pushParticle(partInj(n), tauMin)
!Assign cell to new particle !Assign cell to new particle
CALL solver%updateParticleCell(partInj(n)) CALL solver%updateParticleCell(partInj(n))

56
src/modules/moduleSolver.f90
View file

@ -27,10 +27,11 @@ MODULE moduleSolver
INTERFACE INTERFACE
!Push a particle !Push a particle
PURE SUBROUTINE push_interafece(part) PURE SUBROUTINE push_interafece(part, tauIn)
USE moduleSpecies USE moduleSpecies
TYPE(particle), INTENT(inout):: part TYPE(particle), INTENT(inout):: part
REAL(8), INTENT(in):: tauIn
END SUBROUTINE push_interafece END SUBROUTINE push_interafece
@ -134,7 +135,7 @@ MODULE moduleSolver
!Checks if the species sp is update this iteration !Checks if the species sp is update this iteration
IF (solver%pusher(sp)%pushSpecies) THEN IF (solver%pusher(sp)%pushSpecies) THEN
!Push particle !Push particle
CALL solver%pusher(sp)%pushParticle(partOld(n)) CALL solver%pusher(sp)%pushParticle(partOld(n), tau(sp))
!Find cell in wich particle reside !Find cell in wich particle reside
CALL solver%updateParticleCell(partOld(n)) CALL solver%updateParticleCell(partOld(n))
@ -146,27 +147,25 @@ MODULE moduleSolver
END SUBROUTINE doPushes END SUBROUTINE doPushes
!Push one particle. Boris pusher for 2D Cyl Neutral particle !Push one particle. Boris pusher for 2D Cyl Neutral particle
PURE SUBROUTINE pushCylNeutral(part) PURE SUBROUTINE pushCylNeutral(part, tauIn)
USE moduleSpecies USE moduleSpecies
IMPLICIT NONE IMPLICIT NONE
TYPE(particle), INTENT(inout):: part TYPE(particle), INTENT(inout):: part
REAL(8), INTENT(in):: tauIn
TYPE(particle):: part_temp TYPE(particle):: part_temp
REAL(8):: tauSp
REAL(8):: x_new, y_new, r, sin_alpha, cos_alpha REAL(8):: x_new, y_new, r, sin_alpha, cos_alpha
REAL(8):: v_p_oh_star(2:3) REAL(8):: v_p_oh_star(2:3)
part_temp = part part_temp = part
!Time step for the species
tauSp = tau(part_temp%sp)
!z !z
part_temp%v(1) = part%v(1) part_temp%v(1) = part%v(1)
part_temp%r(1) = part%r(1) + part_temp%v(1)*tauSp part_temp%r(1) = part%r(1) + part_temp%v(1)*tauIn
!r,theta !r,theta
v_p_oh_star(2) = part%v(2) v_p_oh_star(2) = part%v(2)
x_new = part%r(2) + v_p_oh_star(2)*tauSp x_new = part%r(2) + v_p_oh_star(2)*tauIn
v_p_oh_star(3) = part%v(3) v_p_oh_star(3) = part%v(3)
y_new = v_p_oh_star(3)*tauSp y_new = v_p_oh_star(3)*tauIn
r = DSQRT(x_new**2+y_new**2) r = DSQRT(x_new**2+y_new**2)
part_temp%r(2) = r part_temp%r(2) = r
IF (r > 0.D0) THEN IF (r > 0.D0) THEN
@ -185,31 +184,29 @@ MODULE moduleSolver
END SUBROUTINE pushCylNeutral END SUBROUTINE pushCylNeutral
!Push one particle. Boris pusher for 2D Cyl Charged particle !Push one particle. Boris pusher for 2D Cyl Charged particle
PURE SUBROUTINE pushCylCharged(part) PURE SUBROUTINE pushCylCharged(part, tauIn)
USE moduleSpecies USE moduleSpecies
USE moduleEM USE moduleEM
IMPLICIT NONE IMPLICIT NONE
TYPE(particle), INTENT(inout):: part TYPE(particle), INTENT(inout):: part
REAL(8), INTENT(in):: tauIn
REAL(8):: v_p_oh_star(2:3) REAL(8):: v_p_oh_star(2:3)
TYPE(particle):: part_temp TYPE(particle):: part_temp
REAL(8):: x_new, y_new, r, sin_alpha, cos_alpha REAL(8):: x_new, y_new, r, sin_alpha, cos_alpha
REAL(8):: tauSp REAL(8):: qmEFt(1:3)!charge*tauIn*EF/mass
REAL(8):: qmEFt(1:3)!charge*tauSp*EF/mass
part_temp = part part_temp = part
!Time step for the species
tauSp = tau(part_temp%sp)
!Get electric field at particle position !Get electric field at particle position
qmEFt = part_temp%qm*gatherElecField(part_temp)*tauSp qmEFt = part_temp%qm*gatherElecField(part_temp)*tauIn
!z !z
part_temp%v(1) = part%v(1) + qmEFt(1) part_temp%v(1) = part%v(1) + qmEFt(1)
part_temp%r(1) = part%r(1) + part_temp%v(1)*tauSp part_temp%r(1) = part%r(1) + part_temp%v(1)*tauIn
!r,theta !r,theta
v_p_oh_star(2) = part%v(2) + qmEFt(2) v_p_oh_star(2) = part%v(2) + qmEFt(2)
x_new = part%r(2) + v_p_oh_star(2)*tauSp x_new = part%r(2) + v_p_oh_star(2)*tauIn
v_p_oh_star(3) = part%v(3) + qmEFt(3) v_p_oh_star(3) = part%v(3) + qmEFt(3)
y_new = v_p_oh_star(3)*tauSp y_new = v_p_oh_star(3)*tauIn
r = DSQRT(x_new**2+y_new**2) r = DSQRT(x_new**2+y_new**2)
part_temp%r(2) = r part_temp%r(2) = r
IF (r > 0.D0) THEN IF (r > 0.D0) THEN
@ -228,25 +225,23 @@ MODULE moduleSolver
END SUBROUTINE pushCylCharged END SUBROUTINE pushCylCharged
!Push charged particles in 1D cartesian coordinates !Push charged particles in 1D cartesian coordinates
PURE SUBROUTINE push1DCartCharged(part) PURE SUBROUTINE push1DCartCharged(part, tauIn)
USE moduleSPecies USE moduleSPecies
USE moduleEM USE moduleEM
IMPLICIT NONE IMPLICIT NONE
TYPE(particle), INTENT(inout):: part TYPE(particle), INTENT(inout):: part
REAL(8), INTENT(in):: tauIn
TYPE(particle):: part_temp TYPE(particle):: part_temp
REAL(8):: tauSp
REAL(8):: qmEFt(1:3) REAL(8):: qmEFt(1:3)
part_temp = part part_temp = part
!Time step for particle species
tauSp = tau(part_temp%sp)
!Get the electric field at particle position !Get the electric field at particle position
qmEFt = part_temp%qm*gatherElecField(part_temp)*tauSp qmEFt = part_temp%qm*gatherElecField(part_temp)*tauIn
!x !x
part_temp%v(1) = part%v(1) + qmEFt(1) part_temp%v(1) = part%v(1) + qmEFt(1)
part_temp%r(1) = part%r(1) + part_temp%v(1)*tauSp part_temp%r(1) = part%r(1) + part_temp%v(1)*tauIn
part_temp%n_in = .FALSE. part_temp%n_in = .FALSE.
@ -255,28 +250,27 @@ MODULE moduleSolver
END SUBROUTINE push1DCartCharged END SUBROUTINE push1DCartCharged
!Push one particle. Boris pusher for 1D Radial Charged particle !Push one particle. Boris pusher for 1D Radial Charged particle
PURE SUBROUTINE push1DRadCharged(part) PURE SUBROUTINE push1DRadCharged(part, tauIn)
USE moduleSpecies USE moduleSpecies
USE moduleEM USE moduleEM
IMPLICIT NONE IMPLICIT NONE
TYPE(particle), INTENT(inout):: part TYPE(particle), INTENT(inout):: part
REAL(8), INTENT(in):: tauIn
REAL(8):: v_p_oh_star(1:2) REAL(8):: v_p_oh_star(1:2)
TYPE(particle):: part_temp TYPE(particle):: part_temp
REAL(8):: x_new, y_new, r, sin_alpha, cos_alpha REAL(8):: x_new, y_new, r, sin_alpha, cos_alpha
REAL(8):: tauSp REAL(8):: qmEFt(1:3)!charge*tauIn*EF/mass
REAL(8):: qmEFt(1:3)!charge*tauSp*EF/mass
part_temp = part part_temp = part
!Time step for the species !Time step for the species
tauSp = tau(part_temp%sp)
!Get electric field at particle position !Get electric field at particle position
qmEFt = part_temp%qm*gatherElecField(part_temp)*tauSp qmEFt = part_temp%qm*gatherElecField(part_temp)*tauMin
!r,theta !r,theta
v_p_oh_star(1) = part%v(1) + qmEFt(1) v_p_oh_star(1) = part%v(1) + qmEFt(1)
x_new = part%r(1) + v_p_oh_star(1)*tauSp x_new = part%r(1) + v_p_oh_star(1)*tauIn
v_p_oh_star(2) = part%v(2) + qmEFt(2) v_p_oh_star(2) = part%v(2) + qmEFt(2)
y_new = v_p_oh_star(2)*tauSp y_new = v_p_oh_star(2)*tauIn
r = DSQRT(x_new**2+y_new**2) r = DSQRT(x_new**2+y_new**2)
part_temp%r(1) = r part_temp%r(1) = r
IF (r > 0.D0) THEN IF (r > 0.D0) THEN