mpp_mod_oa Module Reference

Data Types
type	communicator
type	event
type	clock
type	Clock_Data_Summary
type	Summary_Struct
interface	mpp_max
interface	mpp_min
interface	mpp_sum
interface	mpp_transmit
interface	mpp_recv
interface	mpp_send
interface	mpp_broadcast
interface	mpp_chksum
interface	mpp_error
Functions/Subroutines
subroutine	mpp_init (flags, mpp_comm, logfile)
integer	stdin ()
integer	stdout ()
integer	stderr ()
integer	stdlog ()
subroutine	mpp_exit ()
integer	mpp_pe ()
integer	mpp_node ()
integer	mpp_npes ()
integer	mpp_root_pe ()
subroutine	mpp_set_root_pe (num)
subroutine	mpp_declare_pelist (pelist, name)
subroutine	mpp_set_current_pelist (pelist)
subroutine	mpp_get_current_pelist (pelist, name)
integer	get_peset (pelist)
subroutine	mpp_clock_set_grain (grain)
integer	mpp_clock_id (name, flags, grain)
subroutine	mpp_clock_begin (id)
subroutine	mpp_clock_end (id)
subroutine	increment_current_clock (event_id, bytes)
subroutine	dump_clock_summary ()
integer	get_unit ()
subroutine	sum_clock_data ()
subroutine	clock_init (id, name, flags)
subroutine	mpp_sync (pelist)
subroutine	mpp_sync_self (pelist)
subroutine	mpp_error_basic (errortype, errormsg)
subroutine	mpp_error_mesg (routine, errormsg, errortype)
subroutine	mpp_error_noargs ()
subroutine	mpp_set_warn_level (flag)
integer	mpp_error_state ()
subroutine	mpp_set_stack_size (n)
Variables
character(len=128)	version
character(len=128)	tagname
integer	in_unit = 5
integer	out_unit = 6
integer	err_unit = 0
integer	log_unit
integer	etc_unit
logical	module_is_initialized = .FALSE.
integer	pe = 0
integer	node = 0
integer	npes = 1
integer	root_pe = 0
integer	error
integer, parameter	MAXPES = 2048
character(len=32)	configfile
character(len=32)	etcfile
logical, save	logfile_defined = .false.
logical, save	opened
integer	io_num
integer, parameter	MPP_VERBOSE = 1
integer, parameter	MPP_DEBUG = 2
logical	verbose = .FALSE.
logical	debug = .FALSE.
integer, parameter	ALL_PES = -1
integer, parameter	ANY_PE = -2
integer, parameter	NULL_PE = -3
integer, parameter	NOTE = 0
integer, parameter	WARNING = 1
integer, parameter	FATAL = 2
logical	warnings_are_fatal = .FALSE.
integer	error_state = 0
integer(LONG_KIND), parameter	MPP_WAIT = -1
integer(LONG_KIND), parameter	MPP_READY = -2
real(DOUBLE_KIND), dimension(:), allocatable	mpp_stack
integer	mpp_stack_size = 0
integer	mpp_stack_hwm = 0
integer, parameter	PESET_MAX = 32
type(communicator), dimension(0:peset_max)	peset
integer	peset_num = 0
integer	current_peset_num = 0
integer	world_peset_num
integer	tick
integer	ticks_per_sec
integer	max_ticks
integer	start_tick
integer	end_tick
integer	tick0 = 0
real	tick_rate
integer, parameter	MAX_CLOCKS = 100
integer, parameter	MAX_EVENT_TYPES = 5
integer, parameter	MAX_EVENTS = 40000
integer, parameter	EVENT_ALLREDUCE = 1
integer, parameter	EVENT_BROADCAST = 2
integer, parameter	EVENT_RECV = 3
integer, parameter	EVENT_SEND = 4
integer, parameter	EVENT_WAIT = 5
integer	clock_num = 0
integer	current_clock = 0
integer	clock0
integer	clock_grain = HUGE(1)
integer, parameter	MPP_CLOCK_SYNC = 1
integer, parameter	MPP_CLOCK_DETAILED = 2
type(clock), dimension(max_clocks)	clocks
integer, parameter	MAX_BINS = 20
type(Summary_Struct), dimension(max_clocks)	clock_summary

Function/Subroutine Documentation

subroutine mpp_mod_oa::clock_init	(	integer,intent(in)	id,
		character(len=*),intent(in)	name,
		integer,intent(in),optional	flags
	)			`[private]`

Definition at line 1557 of file mpp_mod_oa.F90.

References clock_summary, clocks, EVENT_ALLREDUCE, EVENT_BROADCAST, EVENT_RECV, EVENT_SEND, EVENT_WAIT, MAX_EVENT_TYPES, and tick0.

Referenced by mpp_clock_id().

Here is the caller graph for this function:

subroutine mpp_mod_oa::dump_clock_summary ( ) [private]

Definition at line 1325 of file mpp_mod_oa.F90.

References a, clock_num, clock_summary, clocks, get_unit(), MAX_BINS, and MAX_EVENT_TYPES.

Referenced by mpp_exit().

Here is the call graph for this function:

Here is the caller graph for this function:

integer mpp_mod_oa::get_peset ( integer,dimension(:),intent(in),optional pelist ) [private]

Definition at line 1117 of file mpp_mod_oa.F90.

References ascend_sort(), current_peset_num, FATAL, peset, PESET_MAX, peset_num, stderr(), and WARNING.

Referenced by mpp_declare_pelist(), mpp_init(), mpp_set_current_pelist(), mpp_sync(), and mpp_sync_self().

Here is the call graph for this function:

Here is the caller graph for this function:

integer mpp_mod_oa::get_unit ( ) [private]

Definition at line 1458 of file mpp_mod_oa.F90.

References FATAL, not, and opened.

Referenced by dump_clock_summary(), mpp_init(), stderr(), stdlog(), and stdout().

Here is the caller graph for this function:

subroutine mpp_mod_oa::increment_current_clock	(	integer,intent(in)	event_id,
		integer,intent(in),optional	bytes
	)			`[private]`

Definition at line 1298 of file mpp_mod_oa.F90.

References clock_num, clocks, current_clock, end_tick, FATAL, MAX_EVENTS, max_ticks, start_tick, and WARNING.

Referenced by mpp_sync(), and mpp_sync_self().

Here is the caller graph for this function:

subroutine mpp_mod_oa::mpp_clock_begin ( integer,intent(in) id )

Definition at line 1255 of file mpp_mod_oa.F90.

References clock_num, clocks, current_clock, current_peset_num, FATAL, and mpp_sync().

Referenced by mpp_init().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mpp_mod_oa::mpp_clock_end ( integer,intent(in),optional id )

Definition at line 1276 of file mpp_mod_oa.F90.

References clock_num, clocks, current_clock, current_peset_num, end_tick, FATAL, max_ticks, stderr(), and WARNING.

Referenced by mpp_exit().

Here is the call graph for this function:

Here is the caller graph for this function:

integer mpp_mod_oa::mpp_clock_id	(	character(len=*),intent(in)	name,
		integer,intent(in),optional	flags,
		integer,intent(in),optional	grain
	)

Definition at line 1215 of file mpp_mod_oa.F90.

References clock_grain, clock_init(), clock_num, clocks, FATAL, MAX_CLOCKS, and WARNING.

Referenced by mpp_domains_mod_oa::mpp_domains_init(), and mpp_init().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mpp_mod_oa::mpp_clock_set_grain ( integer,intent(in) grain )

Definition at line 1203 of file mpp_mod_oa.F90.

References clock_grain, and FATAL.

subroutine mpp_mod_oa::mpp_declare_pelist	(	integer,dimension(:),intent(in)	pelist,
		character(len=*),optional	name
	)

Definition at line 1058 of file mpp_mod_oa.F90.

References FATAL, get_peset(), and peset.

Referenced by psmile_io_init_pelist().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mpp_mod_oa::mpp_error_basic	(	integer,intent(in)	errortype,
		character(len=*),intent(in),optional	errormsg
	)			`[private]`

Definition at line 2220 of file mpp_mod_oa.F90.

References error_state, FATAL, mpp_flushstd(), NOTE, peset, stderr(), stdout(), WARNING, and warnings_are_fatal.

Here is the call graph for this function:

subroutine mpp_mod_oa::mpp_error_mesg	(	character(len=*),intent(in)	routine,
		character(len=*),intent(in)	errormsg,
		integer,intent(in)	errortype
	)			`[private]`

Definition at line 2277 of file mpp_mod_oa.F90.

subroutine mpp_mod_oa::mpp_error_noargs ( ) [private]

Definition at line 2284 of file mpp_mod_oa.F90.

References FATAL.

integer mpp_mod_oa::mpp_error_state ( )

Definition at line 2301 of file mpp_mod_oa.F90.

References error_state, FATAL, stdout(), and tick.

Here is the call graph for this function:

subroutine mpp_mod_oa::mpp_exit ( )

Definition at line 922 of file mpp_mod_oa.F90.

References clock0, clock_num, clocks, current_peset_num, dump_clock_summary(), MAX_EVENT_TYPES, mpp_clock_end(), mpp_npes(), mpp_set_current_pelist(), mpp_stack_hwm, mpp_sync(), peset, root_pe, stdout(), sum_clock_data(), and tick_rate.

Here is the call graph for this function:

subroutine mpp_mod_oa::mpp_get_current_pelist	(	integer,dimension(:),intent(out)	pelist,
		character(len=*),intent(out),optional	name
	)

Definition at line 1103 of file mpp_mod_oa.F90.

References current_peset_num, FATAL, and peset.

Referenced by mpp_domains_mod_oa::mpp_broadcast_domain(), and mpp_domains_mod_oa::mpp_define_domains2D().

Here is the caller graph for this function:

subroutine mpp_mod_oa::mpp_init	(	integer,intent(in),optional	flags,
		integer,intent(in),optional	mpp_comm,
		character(len=*),intent(in),optional	logfile
	)