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

Change output of Temp_ref from K to eV.

Browse source
This commit is contained in:
Jorge Gonzalez 2024-10-09 16:30:50 +02:00
commit 7dcaaffc16
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
moduleOutput.f90
View file

@ -179,16 +179,17 @@ module output
subroutine writeOutputRef() subroutine writeOutputRef()
use referenceValues, only: t_ref, L_ref, n_ref, u_ref, Temp_ref, phi_ref use referenceValues, only: t_ref, L_ref, n_ref, u_ref, Temp_ref, phi_ref
use constantParameters, only: eV_to_K
character(len=7), parameter:: filename = 'ref.csv' character(len=7), parameter:: filename = 'ref.csv'
write (*, '(A, A)') 'Writing: ', filename write (*, '(A, A)') 'Writing: ', filename
open(unit=dataRef_id, file=pathOutput // filename) open(unit=dataRef_id, file=pathOutput // filename)
write(dataRef_id, '(A,5(' // formatSep // ',A))') 't_ref (s)', 'L_ref (m)', 'n_ref (m^-3)', & write(dataRef_id, '(A,5(' // formatSep // ',A))') 't_ref (s)', 'L_ref (m)', 'n_ref (m^-3)', &
'u_ref (m s^-1)', 'T_ref (K)', 'phi_ref (V)' 'u_ref (m s^-1)', 'T_ref (eV)', 'phi_ref (V)'
write(dataRef_id, '(' // formatFloat // ',5('// formatSep // ',' // formatFloat // '))') & write(dataRef_id, '(' // formatFloat // ',5('// formatSep // ',' // formatFloat // '))') &
t_ref, L_ref, n_ref, & t_ref, L_ref, n_ref, &
u_ref, Temp_ref, phi_ref u_ref, Temp_ref/eV_to_K, phi_ref
close(dataRef_id) close(dataRef_id)