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

Potential at r0 is different from 0 now. Posibility of quasi-neutrality properly accounting for the electric field.

Browse source
This commit is contained in:
Jorge Gonzalez 2024-11-15 16:00:14 +01:00
commit 9ff307286e
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
plasmaExpansion.f90
View file

@ -131,7 +131,7 @@ program plasmaExpansion
end if end if
t0 = 0.0_dp t0 = 0.0_dp
tf = 3.0e-8_dp / t_ref tf = 1.0e-7_dp / t_ref
! tf = 1.0e1_dp * (rf - r0) / c_s ! tf = 1.0e1_dp * (rf - r0) / c_s
dt = 1.0e-2_dp*dr/c_s dt = 1.0e-2_dp*dr/c_s
nt = nint((tf - t0) / dt) nt = nint((tf - t0) / dt)
@ -208,7 +208,7 @@ program plasmaExpansion
Res = 0.0_dp Res = 0.0_dp
! Set boundary values ! Set boundary values
phi0 = 0.0e0_dp / phi_ref ! Dirichlet phi0 = 1.0e2_dp / phi_ref ! Dirichlet
phi(1) = phi0 ! Dirichlet phi(1) = phi0 ! Dirichlet
! phi0 = phi(1) ! Neumann ! phi0 = phi(1) ! Neumann
allocate(f0(j0:nv)) allocate(f0(j0:nv))
@ -276,6 +276,9 @@ program plasmaExpansion
end do end do
!$omp end parallel do !$omp end parallel do
! Assume quasi-neutrality to start iterating
n_e = Zave * n_i
! Solve Poission (maximum number of iterations, break if convergence is reached before) ! Solve Poission (maximum number of iterations, break if convergence is reached before)
do k = 1, 1000 do k = 1, 1000
! Store previous value ! Store previous value
@ -309,7 +312,6 @@ program plasmaExpansion
! phi0=phi(1) ! Neumann ! phi0=phi(1) ! Neumann
! Calculate distribution of electrons ! Calculate distribution of electrons
! n_e = Zave * n_i ! Quasi-neutral
n_e = Zave(1) * n_i(1) * exp((phi- phi0) / T_e) ! Isothermal (Boltzmann) n_e = Zave(1) * n_i(1) * exp((phi- phi0) / T_e) ! Isothermal (Boltzmann)
! n_e = Zave(1) * n_i(1) * (1.0_dp + ((gamma_e - 1.0_dp)/gamma_e*(phi-phi0)/T_e)**(1.0_dp/(gamma_e - 1.0_dp))) ! Not working ! n_e = Zave(1) * n_i(1) * (1.0_dp + ((gamma_e - 1.0_dp)/gamma_e*(phi-phi0)/T_e)**(1.0_dp/(gamma_e - 1.0_dp))) ! Not working