ESMF_TestHarnessUtilMod Module

Uses

- ESMF_TestHarnessTypesMod
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	localPet
integer,	public		::	petCount
integer,	public		::	rootPet	=	Harness_rootPet
real(kind=ESMF_KIND_R8),	public,	parameter	::	RegridMinNeighborhood	=	1.0D-14
type(harness_descriptor),	public,	save	::	har

Functions

public function calc_grid_rank(lstring, MemBeg, MemEnd, localrc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=THARN_MAXSTR),	intent(in)			::	lstring
integer,	intent(in)			::	MemBeg
integer,	intent(in)			::	MemEnd
integer,	intent(out)			::	localrc

Return Value integer

public function char2int(lstring, strloc, localrc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
integer,	intent(in),	optional		::	strloc
integer,	intent(inout)			::	localrc

Return Value integer

public function dist_rank(lstring, MemBeg, MemEnd, localrc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=THARN_MAXSTR),	intent(in)			::	lstring
integer,	intent(in)			::	MemBeg
integer,	intent(in)			::	MemEnd
integer,	intent(out)			::	localrc

Return Value integer

public function findblank(lstring, strloc, increment)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
integer,	intent(in)			::	strloc
integer,	intent(in)			::	increment

Return Value integer

public function pattern_query(lstring, lpattern)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
character(len=*),	intent(in)			::	lpattern

Return Value integer

public function set_query(lstring, lset)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
character(len=*),	intent(in)			::	lset

Return Value integer

public function CheckError(checkpoint, line, file, rcValue, msg, rcToReturn)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	checkpoint
integer,	intent(in)			::	line
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	rcValue
character(len=*),	intent(in)			::	msg
integer,	intent(out)			::	rcToReturn

Return Value logical

public function check_value(exp_val, act_val, tol)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=ESMF_KIND_R8),	intent(in)			::	exp_val
real(kind=ESMF_KIND_R8),	intent(in)			::	act_val
real(kind=ESMF_KIND_R8),	intent(in)			::	tol

Return Value logical

public function pattern_match(lstring, lcharL, lcharR, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
character(len=*),	intent(in)			::	lcharL
character(len=*),	intent(in)			::	lcharR
integer,		optional		::	rc

Return Value logical

Subroutines

public subroutine memory_separate(lstring, iRank, lmem, localrc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
integer,	intent(in)			::	iRank
type(character_array),	intent(out)			::	lmem(:)
integer,	intent(out)			::	localrc

public subroutine memory_topology(lstring, location, srcMulti, srcBlock, dstMulti, dstBlock, localrc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=THARN_MAXSTR),	intent(in)			::	lstring
integer,	intent(in)			::	location(2)
integer,	intent(out)			::	srcMulti
integer,	intent(out)			::	srcBlock
integer,	intent(out)			::	dstMulti
integer,	intent(out)			::	dstBlock
integer,	intent(out)			::	localrc

public subroutine pattern_locate(lstring, lpattern, number_hits, hit_loc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
character(len=*),	intent(in)			::	lpattern
integer,	intent(inout)			::	number_hits
integer,	intent(inout)			::	hit_loc(:)

public subroutine process_query(lstring, lname, tag, symbol_loc, localrc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
character(len=*),	intent(inout)			::	lname
integer,	intent(out)			::	tag
integer,	intent(out)			::	symbol_loc(2)
integer,	intent(out)			::	localrc

public subroutine read_table_integer(int_value, kelements, irow, nrows, ncolumns, new_row, lfilename, descriptor_label, localcf, rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	int_value
integer,	intent(inout)			::	kelements
integer,	intent(inout)			::	irow
integer,	intent(in)			::	nrows
integer,	intent(in)			::	ncolumns(:)
integer,	intent(in)			::	new_row(:)
character(len=THARN_MAXSTR),	intent(in)			::	lfilename
character(len=THARN_MAXSTR),	intent(in)			::	descriptor_label
type(ESMF_Config),	intent(inout)			::	localcf
integer,	intent(inout)			::	rc

public subroutine read_table_real(flt_value, kelements, irow, nrows, ncolumns, new_row, lfilename, descriptor_label, localcf, rc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=ESMF_KIND_R8),	intent(out)			::	flt_value
integer,	intent(inout)			::	kelements
integer,	intent(inout)			::	irow
integer,	intent(in)			::	nrows
integer,	intent(in)			::	ncolumns(:)
integer,	intent(in)			::	new_row(:)
character(len=THARN_MAXSTR),	intent(in)			::	lfilename
character(len=THARN_MAXSTR),	intent(in)			::	descriptor_label
type(ESMF_Config),	intent(inout)			::	localcf
integer,	intent(inout)			::	rc

public subroutine read_table_string(string, kelements, irow, nrows, ncolumns, new_row, lfilename, descriptor_label, localcf, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=THARN_MAXSTR),	intent(out)			::	string
integer,	intent(inout)			::	kelements
integer,	intent(inout)			::	irow
integer,	intent(in)			::	nrows
integer,	intent(in)			::	ncolumns(:)
integer,	intent(in)			::	new_row(:)
character(len=THARN_MAXSTR),	intent(in)			::	lfilename
character(len=THARN_MAXSTR),	intent(in)			::	descriptor_label
type(ESMF_Config),	intent(inout)			::	localcf
integer,	intent(inout)			::	rc

public subroutine set_locate(lstring, lset, number_hits, hit_loc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lstring
character(len=*),	intent(in)			::	lset
integer,	intent(inout)			::	number_hits
integer,	intent(inout),		dimension(:)	::	hit_loc