Set the verbosity level for the output, this is a library-level function, that changes the behaviour of several I/O functions. It also enforces min/max verbosity levels (currently no output is 0, while debug output is 3).
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=ip), | intent(in) | :: | v |
Requested level of verbosity |
subroutine set_verbosity(v)
!! Set the verbosity level for the output, this is a library-level
!! function, that changes the behaviour of several I/O functions. It
!! also enforces min/max verbosity levels (currently no output is 0,
!! while debug output is 3).
integer(ip), intent(in) :: v
!! Requested level of verbosity
if( v < 0 ) then
verbose = 0_ip
else if( v > 3 ) then
verbose = 3_ip
else
verbose = v
end if
end subroutine set_verbosity