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

Better conditions for Diko's peak

Browse source
This commit is contained in:
Jorge Gonzalez 2024-10-02 08:40:52 +02:00
commit eebadc8e05
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
plasmaExpansion.f90
View file

@ -353,15 +353,15 @@ program plasmaExpansion
! Set input parameters (remember these have to be in non-dimensional units)
Temp0 = 60.0_dp * eV_to_K / Temp_ref
TempF = 10.0_dp * eV_to_K / Temp_ref
TempF = 5.0_dp * eV_to_K / Temp_ref
Zave0 = 12.0_dp
ZaveF = 3.0_dp
n_ecr = 1.0e19_dp * cm3_to_m3 / n_ref
c_s = sqrt(Zave0 * gam * Temp0)
u_bc0 = c_s!sqrt(Temp0)
u_bc0 = sqrt(Temp0)
u_bcF = sqrt(TempF)
n_bc0 = n_ecr / Zave0
n_bcF = 1.0e-1*n_bc0!n_ecr*1.0e-1 / T_to_Z(Temp0)
n_bcF = 1.0e-1_dp*n_bc0!n_ecr*1.0e-1 / T_to_Z(Temp0)
! Set domain boundaries (non-dimensional units)
r0 = 200.0e-6_dp / L_ref
@ -404,7 +404,7 @@ program plasmaExpansion
dt = (tf - t0) / float(nt)
t_bc0 = nint(100.0e-9_dp / t_ref / dt)
t_bcF = nint(105.0e-9_dp / t_ref / dt)
t_bcF = nint(200.0e-9_dp / t_ref / dt)
everyOutput = nint(1.0e-9_dp/t_ref/dt)
if (everyOutput == 0) then