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

Issue with injecting current

Browse source 
Values were not right in 1D geometry. Fixed.
This commit is contained in:
Jorge Gonzalez 2024-10-13 13:32:57 +02:00
commit 2af10acd70
3 changed files with 19 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/modules/mesh/1DCart/moduleMesh1DCart.f90
View file

@ -123,7 +123,7 @@ MODULE moduleMesh1DCart
self%x = r1(1) self%x = r1(1)
self%surface = 1.D0 / L_ref**2 self%surface = 1.D0
self%normal = (/ 1.D0, 0.D0, 0.D0 /) self%normal = (/ 1.D0, 0.D0, 0.D0 /)

2
src/modules/mesh/1DRad/moduleMesh1DRad.f90
View file

@ -123,7 +123,7 @@ MODULE moduleMesh1DRad
self%r = r1(1) self%r = r1(1)
self%surface = 1.D0 / L_ref**2 self%surface = 1.D0
self%normal = (/ 1.D0, 0.D0, 0.D0 /) self%normal = (/ 1.D0, 0.D0, 0.D0 /)

19
src/modules/moduleInject.f90
View file

@ -159,11 +159,26 @@ MODULE moduleInject
CASE ("A") CASE ("A")
!Current in Ampers !Current in Ampers
fluxPerStep = flow/qe SELECT TYPE(sp => self%species)
CLASS IS(speciesCharged)
fluxPerStep = flow/(qe*abs(sp%q))
CLASS DEFAULT
call criticalError('Attempted to assign a flux in "A" to a species without charge.', 'initInject')
END SELECT
CASE ("Am2") CASE ("Am2")
!Input current in Ampers per square meter !Input current in Ampers per square meter
fluxPerStep = flow*self%surface*L_ref**2/qe SELECT TYPE(sp => self%species)
CLASS IS(speciesCharged)
fluxPerStep = flow*self%surface*L_ref**2/(qe*abs(sp%q))
CLASS DEFAULT
call criticalError('Attempted to assign a flux in "Am2" to a species without charge.', 'initInject')
END SELECT
CASE ("part/s") CASE ("part/s")
!Input current in Ampers !Input current in Ampers