diff --git a/sources/Input.f90 b/sources/Input.f90 index a6e8b4d..b1beffb 100644 --- a/sources/Input.f90 +++ b/sources/Input.f90 @@ -230,7 +230,7 @@ subroutine read_init_parameters write(*,*)'The plasma temperature T_ini must be greater than the Fermi temperature :' if (Tmin_alert) write(*,*)'because the electrical resistivity is not yet implemented for this plasma' if (Tmin_alert2) write(*,*)'because the electrical resistivity is not yet implemented for this tracer' - write(*,*) 'T_ini =',T_ini,'eV while T_F = ',Tfermi(Z0, ni0)/eV,' eV' + write(*,*) 'T_ini =',T_ini/eV,'eV while T_F = ',Tfermi(Z0, ni0)/eV,' eV' stop end if @@ -394,4 +394,4 @@ function get_char(str) return end function get_char -end module input \ No newline at end of file +end module input