ESMF_TestHarnessUtilMod Module

Uses

- ESMF_TestHarnessTypesMod

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