diff --git a/moduleOutput.f90 b/moduleOutput.f90 index aeac030..a54d949 100644 --- a/moduleOutput.f90 +++ b/moduleOutput.f90 @@ -178,17 +178,18 @@ module output end subroutine writeOutputBoundary 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' write (*, '(A, A)') 'Writing: ', 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)', & - '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 // '))') & t_ref, L_ref, n_ref, & - u_ref, Temp_ref, phi_ref + u_ref, Temp_ref/eV_to_K, phi_ref close(dataRef_id)