ESMF_TestMod Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	private,	parameter	::	version	=	'$Id$'
integer,	public,	save	::	PETnum
real(kind=ESMF_KIND_R8),	public,	save	::	start_time

Functions

public function ESMF_TestFileCompare(file1, file2, exclusionList)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	file1
character(len=*),	intent(in)			::	file2
character(len=*),	intent(in),	optional		::	exclusionList(:)

Return Value logical

public function ESMF_TestMaxPETs(petCount, file, line, unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	petCount
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit

Return Value logical

public function ESMF_TestMinPETs(petCount, file, line, unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	petCount
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit

Return Value logical

public function ESMF_TestNumPETs(petCount, file, line, unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	petCount
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit

Return Value logical

Subroutines

public subroutine ESMF_STest(condition, name, failMsg, result, file, line, unit, petCount)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	condition
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	failMsg
integer,	intent(inout)			::	result
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit
integer,	intent(in),	optional		::	petCount

public subroutine ESMF_Test(condition, name, failMsg, result, file, line, unit)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	condition
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	failMsg
integer,	intent(inout)			::	result
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit

public subroutine ESMF_TestEnd(file, line, unit)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit

public subroutine ESMF_TestGlobal(condition, name, failMsg, result, file, line, unit)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	condition
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	failMsg
integer,	intent(inout)			::	result
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit

public subroutine ESMF_TestResultsGather(vm, localPet, petCount, testResults, file, line, unit, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM),	intent(in)			::	vm
integer,	intent(in)			::	localPet
integer,	intent(in)			::	petCount
integer,	intent(in)			::	testResults
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit
integer,	intent(out),	optional		::	rc

public subroutine ESMF_TestStart(file, line, unit, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	file
integer,	intent(in)			::	line
integer,	intent(in),	optional		::	unit
integer,	intent(out),	optional		::	rc