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, public	mpp_init (flags, mpp_comm, logfile)
integer, public	stdin ()
integer, public	stdout ()
integer, public	stderr ()
integer, public	stdlog ()
subroutine, public	mpp_exit ()
integer, public	mpp_pe ()
integer, public	mpp_node ()
integer, public	mpp_npes ()
integer, public	mpp_root_pe ()
subroutine, public	mpp_set_root_pe (num)
subroutine, public	mpp_declare_pelist (pelist, name)
subroutine, public	mpp_set_current_pelist (pelist)
subroutine, public	mpp_get_current_pelist (pelist, name)
integer	get_peset (pelist)
subroutine, public	mpp_clock_set_grain (grain)
integer, public	mpp_clock_id (name, flags, grain)
subroutine, public	mpp_clock_begin (id)
subroutine, public	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, public	mpp_sync (pelist)
subroutine, public	mpp_sync_self (pelist)
subroutine	mpp_error_basic (errortype, errormsg)
subroutine	mpp_error_mesg (routine, errormsg, errortype)
subroutine	mpp_error_noargs ()
subroutine, public	mpp_set_warn_level (flag)
integer, public	mpp_error_state ()
subroutine, public	mpp_set_stack_size (n)
Variables
character(len=128), private	version = '$Id: mpp_mod_oa.F90 2826 2010-12-10 11:14:21Z valcke $'
character(len=128), private	tagname = '$Name$'
integer, private	in_unit = 5
integer, private	out_unit = 6
integer, private	err_unit = 0
integer	log_unit
integer	etc_unit
logical, private	module_is_initialized = .FALSE.
integer, private	pe = 0
integer, private	node = 0
integer, private	npes = 1
integer, private	root_pe = 0
integer, private	error
integer, parameter, private	MAXPES = 2048
character(len=32)	configfile = 'logfile.out'
character(len=32)	etcfile = '._mpp.nonrootpe.stdout'
logical, save	logfile_defined = .false.
logical, save	opened
integer	io_num
integer, parameter, public	MPP_VERBOSE = 1
integer, parameter, public	MPP_DEBUG = 2
logical, private	verbose = .FALSE.
logical, private	debug = .FALSE.
integer, parameter, public	ALL_PES = -1
integer, parameter, public	ANY_PE = -2
integer, parameter, public	NULL_PE = -3
integer, parameter, public	NOTE = 0
integer, parameter, public	WARNING = 1
integer, parameter, public	FATAL = 2
logical, private	warnings_are_fatal = .FALSE.
integer, private	error_state = 0
integer(LONG_KIND), parameter, private	MPP_WAIT = -1
integer(LONG_KIND), parameter, private	MPP_READY = -2
real(DOUBLE_KIND), dimension(:), allocatable, private	mpp_stack
integer, private	mpp_stack_size = 0
integer, private	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, private	tick
integer, private	ticks_per_sec
integer, private	max_ticks
integer, private	start_tick
integer, private	end_tick
integer, private	tick0 = 0
real, private	tick_rate
integer, parameter, private	MAX_CLOCKS = 100
integer, parameter, private	MAX_EVENT_TYPES = 5
integer, parameter, private	MAX_EVENTS = 40000
integer, parameter, private	EVENT_ALLREDUCE = 1
integer, parameter, private	EVENT_BROADCAST = 2
integer, parameter, private	EVENT_RECV = 3
integer, parameter, private	EVENT_SEND = 4
integer, parameter, private	EVENT_WAIT = 5
integer, private	clock_num = 0
integer, private	current_clock = 0
integer, private	clock0
integer, private	clock_grain = HUGE(1)
integer, parameter, public	MPP_CLOCK_SYNC = 1
integer, parameter, public	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 1552 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 1320 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 1112 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 1453 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 1293 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,public mpp_mod_oa::mpp_clock_begin ( integer,intent(in) id )

Definition at line 1250 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,public mpp_mod_oa::mpp_clock_end ( integer,intent(in),optional id )

Definition at line 1271 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,public mpp_mod_oa::mpp_clock_id	(	character(len=*),intent(in)	name,
		integer,intent(in),optional	flags,
		integer,intent(in),optional	grain
	)

Definition at line 1210 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,public mpp_mod_oa::mpp_clock_set_grain ( integer,intent(in) grain )

Definition at line 1198 of file mpp_mod_oa.F90.

References clock_grain, and FATAL.

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

Definition at line 1053 of file mpp_mod_oa.F90.

References FATAL, get_peset(), and peset.

Here is the call 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 2215 of file mpp_mod_oa.F90.

References error_state, FATAL, NOTE, mod_comprism_proto::nulprt, peset, stderr(), 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 2263 of file mpp_mod_oa.F90.

subroutine mpp_mod_oa::mpp_error_noargs ( ) [private]

Definition at line 2270 of file mpp_mod_oa.F90.

References FATAL.

integer,public mpp_mod_oa::mpp_error_state ( )

Definition at line 2287 of file mpp_mod_oa.F90.

References error_state, FATAL, mod_comprism_proto::nulprt, and tick.

subroutine,public mpp_mod_oa::mpp_exit ( )

Definition at line 917 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(), mod_comprism_proto::nulprt, peset, root_pe, sum_clock_data(), and tick_rate.

Here is the call graph for this function:

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

Definition at line 1098 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,public mpp_mod_oa::mpp_init	(	integer,intent(in),optional	flags,
		integer,intent(in),optional	mpp_comm,
		character(len=*),intent(in),optional	logfile
	)