Skip to content

Commit d177b25

Browse files
authored
Update Debug_Parameters.F90
1 parent b8acaa3 commit d177b25

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

debug/Debug_Parameters.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -29,6 +29,7 @@
2929
module fldebug_parameters
3030
!!< Debug specific global parameters
3131

32+
use iso_fortran_env, only: ERROR_UNIT, OUTPUT_UNIT
3233
implicit none
3334

3435
!------------------------------------------------------------------------
@@ -37,6 +38,6 @@ module fldebug_parameters
3738

3839
integer, save :: current_debug_level=1, global_debug_level=1
3940
!! These defaults are an assumption which may not be true on all platforms.
40-
integer, save :: debug_error_unit=0, debug_log_unit=6
41+
integer, save :: debug_error_unit=ERROR_UNIT, debug_log_unit=OUTPUT_UNIT
4142

4243
end module fldebug_parameters

0 commit comments

Comments
 (0)