We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent b8acaa3 commit d177b25Copy full SHA for d177b25
debug/Debug_Parameters.F90
@@ -29,6 +29,7 @@
29
module fldebug_parameters
30
!!< Debug specific global parameters
31
32
+ use iso_fortran_env, only: ERROR_UNIT, OUTPUT_UNIT
33
implicit none
34
35
!------------------------------------------------------------------------
@@ -37,6 +38,6 @@ module fldebug_parameters
37
38
39
integer, save :: current_debug_level=1, global_debug_level=1
40
!! These defaults are an assumption which may not be true on all platforms.
- integer, save :: debug_error_unit=0, debug_log_unit=6
41
+ integer, save :: debug_error_unit=ERROR_UNIT, debug_log_unit=OUTPUT_UNIT
42
43
end module fldebug_parameters
0 commit comments