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

Clean up output function calls

Browse source
This commit is contained in:
JHendrikx 2025-02-18 11:20:14 +01:00
commit 367a39db00
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
vlaplex.f90
View file

@ -228,7 +228,7 @@ program VlaPlEx
t = 0 t = 0
call writeOutputRef() call writeOutputRef()
! call writeOutputF(t, dt, nr, r, nv, v, f_i_old) ! call writeOutputF(t, dt, nr, r, nv, v, f_i_old)
call writeOutputFCum(t, dt, r(rCum_index), nv, v, fCum_i) call writeOutputFCum(t, dt, nz, r(rCum_index), nv, v, fCum_i, Z_list)
call writeOutputPhi(t, dt, nr, r, phi, E, n_e) call writeOutputPhi(t, dt, nr, r, phi, E, n_e)
call writeOutputMom(t, dt, nz, nr, r, n_i, u_i, T_i, Z_list) call writeOutputMom(t, dt, nz, nr, r, n_i, u_i, T_i, Z_list)
@ -402,10 +402,10 @@ program VlaPlEx
end do end do
! Write output ! Write output
if (mod(t,everyOutput) == 0 .or. t == nt) then if (mod(t,everyOutput) == 0 .or. t == nt) then
! call writeOutputF(t, dt, nr, r, nv, v, f_i_old) call writeOutputF(t, dt, nz, nr, r, nv, v, f_i_old, Z_list)
call writeOutputPhi(t, dt, nr, r, phi, E, n_e) call writeOutputPhi(t, dt, nr, r, phi, E, n_e)
call writeOutputMom(t, dt, nz, nr, r, n_i, u_i, T_i, Z_list) call writeOutputMom(t, dt, nz, nr, r, n_i, u_i, T_i, Z_list)
call writeOutputFCum(t, dt, r(rCum_index), nv, v, fCum_i(1,:)) call writeOutputFCum(t, dt, nz, r(rCum_index), nv, v, fCum_i, Z_list)
end if end if