mo_message Module Reference

Write out concatenated strings. More...

Functions/Subroutines
character(len=32000) function	process_arguments (t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16)
subroutine, public	message (t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, uni, advance, show, reset_format)
	Write out an error message to stdout.
subroutine, public	error_message (t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, uni, advance, show, raise, reset_format)
	Write out an error message to stderr and call stop 1.

Variables
logical, save, public	show_msg = .true.
	global control switch to show normal messages
logical, save, public	show_err = .true.
	global control switch to show error messages

Detailed Description

Write out concatenated strings.

Write out several strings concatenated on standard out or a given unit, either advancing or not.

Author

Matthias Cuntz, Sebastian Mueller

Date

Jul 2011, Dec 2019

Copyright

Copyright 2005-2024, the CHS Developers, Sabine Attinger: All rights reserved. FORCES is released under the LGPLv3+ license

The UFZ (CHS) FORCES code is free software. You can redistribute it and/or modify it under the terms of the GNU General Public License as published by the free Software Foundation either version 3 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You received a copy of the GNU Lesser General Public License along with the UFZ CHS FORCES code. It can be found in the files COPYING and COPYING.LESSER provided with this software. The complete GNU license text can also be found at http://www.gnu.org/licenses/.

Function/Subroutine Documentation

error_message()

subroutine, public mo_message::error_message	(	character(len = *), intent(in), optional	t01,
		character(len = *), intent(in), optional	t02,
		character(len = *), intent(in), optional	t03,
		character(len = *), intent(in), optional	t04,
		character(len = *), intent(in), optional	t05,
		character(len = *), intent(in), optional	t06,
		character(len = *), intent(in), optional	t07,
		character(len = *), intent(in), optional	t08,
		character(len = *), intent(in), optional	t09,
		character(len = *), intent(in), optional	t10,
		character(len = *), intent(in), optional	t11,
		character(len = *), intent(in), optional	t12,
		character(len = *), intent(in), optional	t13,
		character(len = *), intent(in), optional	t14,
		character(len = *), intent(in), optional	t15,
		character(len = *), intent(in), optional	t16,
		integer, intent(in), optional	uni,
		character(len = *), intent(in), optional	advance,
		logical, intent(in), optional	show,
		logical, intent(in), optional	raise,
		logical, intent(in), optional	reset_format
	)

Write out an error message to stderr and call stop 1.

Parameters

[in]	t01	optional string arguments
[in]	t02	optional string arguments
[in]	t03	optional string arguments
[in]	t04	optional string arguments
[in]	t05	optional string arguments
[in]	t06	optional string arguments
[in]	t07	optional string arguments
[in]	t08	optional string arguments
[in]	t09	optional string arguments
[in]	t10	optional string arguments
[in]	t11	optional string arguments
[in]	t12	optional string arguments
[in]	t13	optional string arguments
[in]	t14	optional string arguments
[in]	t15	optional string arguments
[in]	t16	optional string arguments
[in]	uni	Unit to write to (default: stderr)
[in]	advance	add linebreak after message, default: 'yes', else 'no'
[in]	show	control if message should be shown (show_err as default)
[in]	raise	control if an exception is raised with error code 1 (.true. as default)
[in]	reset_format	Reset formatting (default: .false.)

Definition at line 132 of file mo_message.F90.

References message(), mo_constants::nerr, and show_err.

Referenced by mo_nml::close_nml(), mo_eckhardt_filter::fit_alpha(), mo_cli::new_cli_parser(), mo_nml::open_nml(), mo_os::path_join::path_join_arr(), and mo_nml::position_nml().

Here is the call graph for this function:

Here is the caller graph for this function:

message()

subroutine, public mo_message::message	(	character(len = *), intent(in), optional	t01,
		character(len = *), intent(in), optional	t02,
		character(len = *), intent(in), optional	t03,
		character(len = *), intent(in), optional	t04,
		character(len = *), intent(in), optional	t05,
		character(len = *), intent(in), optional	t06,
		character(len = *), intent(in), optional	t07,
		character(len = *), intent(in), optional	t08,
		character(len = *), intent(in), optional	t09,
		character(len = *), intent(in), optional	t10,
		character(len = *), intent(in), optional	t11,
		character(len = *), intent(in), optional	t12,
		character(len = *), intent(in), optional	t13,
		character(len = *), intent(in), optional	t14,
		character(len = *), intent(in), optional	t15,
		character(len = *), intent(in), optional	t16,
		integer, intent(in), optional	uni,
		character(len = *), intent(in), optional	advance,
		logical, intent(in), optional	show,
		logical, intent(in), optional	reset_format
	)

Write out an error message to stdout.

Parameters

[in]	t01	optional string arguments
[in]	t02	optional string arguments
[in]	t03	optional string arguments
[in]	t04	optional string arguments
[in]	t05	optional string arguments
[in]	t06	optional string arguments
[in]	t07	optional string arguments
[in]	t08	optional string arguments
[in]	t09	optional string arguments
[in]	t10	optional string arguments
[in]	t11	optional string arguments
[in]	t12	optional string arguments
[in]	t13	optional string arguments
[in]	t14	optional string arguments
[in]	t15	optional string arguments
[in]	t16	optional string arguments
[in]	uni	Unit to write to (default: stdout)
[in]	advance	add linebreak after message, default: 'yes', else 'no'
[in]	show	control if message should be shown (show_msg as default)
[in]	reset_format	Reset formatting (default: .false.)

Definition at line 75 of file mo_message.F90.

References mo_constants::nout, show_msg, and mo_logging::stput().

Referenced by error_message(), mo_nml::open_nml(), mo_os::path_join::path_join_arr(), and mo_utils::special_value::special_value_sp().

Here is the call graph for this function:

Here is the caller graph for this function:

process_arguments()

character(len = 32000) function mo_message::process_arguments ( character(len = *), intent(in), optional  t01, character(len = *), intent(in), optional  t02, character(len = *), intent(in), optional  t03, character(len = *), intent(in), optional  t04, character(len = *), intent(in), optional  t05, character(len = *), intent(in), optional  t06, character(len = *), intent(in), optional  t07, character(len = *), intent(in), optional  t08, character(len = *), intent(in), optional  t09, character(len = *), intent(in), optional  t10, character(len = *), intent(in), optional  t11, character(len = *), intent(in), optional  t12, character(len = *), intent(in), optional  t13, character(len = *), intent(in), optional  t14, character(len = *), intent(in), optional  t15, character(len = *), intent(in), optional  t16  )

private

Definition at line 31 of file mo_message.F90.

Variable Documentation

show_err

logical, save, public mo_message::show_err = .true.

global control switch to show error messages

Definition at line 25 of file mo_message.F90.

Referenced by error_message().

show_msg

logical, save, public mo_message::show_msg = .true.

global control switch to show normal messages

Definition at line 24 of file mo_message.F90.

Referenced by message().