ESMF_TestHarnessMod Module

Uses

- ESMF_GridUtilMod
- ESMF_FieldGetMod
- ESMF_FieldMod
- ESMF
- ESMF_TestHarnessReportMod
- ESMF_RegridMod

Variables

Type	Visibility	Attributes		Name		Initial
logical,	private		::	checkpoint	=	.FALSE.

Functions

private function create_coord(index, grid, axis, rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	index
type(grid_specification_record)				::	grid
integer,	intent(in)			::	axis
integer,	intent(inout)			::	rc

Return Value real(kind=esmf_kind_r8)

private function create_gaussian_coord(k, finish, start, ncells)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	k
real(kind=ESMF_KIND_R8)				::	finish
real(kind=ESMF_KIND_R8)				::	start
integer				::	ncells

Return Value real(kind=esmf_kind_r8)

private function create_uniform_coord(k, finish, start, ncells)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	k
real(kind=ESMF_KIND_R8)				::	finish
real(kind=ESMF_KIND_R8)				::	start
integer				::	ncells

Return Value real(kind=esmf_kind_r8)

Subroutines

public subroutine array_redist_test(PDS, test_failure, reportType, VM, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(problem_descriptor_strings),	intent(inout)			::	PDS
integer,	intent(inout)			::	test_failure
character(len=THARN_MAXSTR),	intent(in)			::	reportType
type(ESMF_VM),	intent(in)			::	VM
integer,	intent(out)			::	rc

private subroutine check_field(test_status, Field, Grid, Grid_info, TestFunction, rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	test_status
type(ESMF_Field),	intent(inout)			::	Field
type(ESMF_Grid),	intent(in)			::	Grid
type(grid_specification_record),	intent(in)			::	Grid_info
type(test_function_record),	intent(in)			::	TestFunction
integer,	intent(inout)			::	rc

private subroutine compare_redist_array(test_status, Array1, Array2, DistGrid1, DistGrid2, Memory, Grid, rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	test_status
type(ESMF_Array),	intent(in)			::	Array1
type(ESMF_Array),	intent(in)			::	Array2
type(ESMF_DistGrid),	intent(in)			::	DistGrid1
type(ESMF_DistGrid),	intent(in)			::	DistGrid2
type(memory_config),	intent(in)			::	Memory
type(grid_specification_record),	intent(in)			::	Grid
integer,	intent(inout)			::	rc

private subroutine create_array(Array, DistGrid, Memory, Grid, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Array),	intent(out)			::	Array
type(ESMF_DistGrid),	intent(in)			::	DistGrid
type(memory_config),	intent(in)			::	Memory
type(grid_specification_record),	intent(in)			::	Grid
integer,	intent(inout)			::	rc

private subroutine create_distribution(Memory, DistRecord, GridRecord, DistGrid, VM, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(memory_config),	intent(in)			::	Memory
type(dist_specification_record),	intent(in)			::	DistRecord
type(grid_specification_record),	intent(in)			::	GridRecord
type(ESMF_DistGrid),	intent(out)			::	DistGrid
type(ESMF_VM),	intent(in)			::	VM
integer,	intent(inout)			::	rc

private subroutine create_grid_from_distgrid(Grid, DistGrid, Memory, Grid_info, Dist_info, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Grid),	intent(inout)			::	Grid
type(ESMF_DistGrid),	intent(in)			::	DistGrid
type(memory_config),	intent(in)			::	Memory
type(grid_specification_record),	intent(in)			::	Grid_info
type(dist_specification_record),	intent(in)			::	Dist_info
integer,	intent(inout)			::	rc

public subroutine field_redist_test(PDS, test_failure, reportType, VM, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(problem_descriptor_strings),	intent(inout)			::	PDS
integer,	intent(inout)			::	test_failure
character(len=THARN_MAXSTR),	intent(in)			::	reportType
type(ESMF_VM),	intent(in)			::	VM
integer,	intent(out)			::	rc

public subroutine field_regrid_test(PDS, test_failure, reportType, VM, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(problem_descriptor_strings),	intent(inout)			::	PDS
integer,	intent(inout)			::	test_failure
character(len=THARN_MAXSTR),	intent(in)			::	reportType
type(ESMF_VM),	intent(in)			::	VM
integer,	intent(out)			::	rc

private subroutine legendre_roots(l, root, w)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	l
real(kind=ESMF_KIND_R8),	intent(out),		dimension(l)	::	root
real(kind=ESMF_KIND_R8),	intent(out),		dimension(l)	::	w

private subroutine populate_array_value(Array, value, DistGrid, Memory, Grid, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Array),	intent(inout)			::	Array
real(kind=ESMF_KIND_R8),	intent(in)			::	value
type(ESMF_DistGrid),	intent(in)			::	DistGrid
type(memory_config),	intent(in)			::	Memory
type(grid_specification_record),	intent(in)			::	Grid
integer,	intent(inout)			::	rc

private subroutine populate_field(Field, Grid, Memory, Grid_info, TestFunction, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	Field
type(ESMF_Grid),	intent(in)			::	Grid
type(memory_config),	intent(in)			::	Memory
type(grid_specification_record),	intent(in)			::	Grid_info
type(test_function_record),	intent(in)			::	TestFunction
integer,	intent(inout)			::	rc

private subroutine populate_redist_array(Array, DistGrid, Memory, Grid, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Array),	intent(inout)			::	Array
type(ESMF_DistGrid),	intent(in)			::	DistGrid
type(memory_config),	intent(in)			::	Memory
type(grid_specification_record),	intent(in)			::	Grid
integer,	intent(inout)			::	rc