ESMF_TestHarnessMod Module


Uses

  • module~~esmf_testharnessmod~~UsesGraph module~esmf_testharnessmod ESMF_TestHarnessMod ESMF_FieldGetMod ESMF_FieldGetMod module~esmf_testharnessmod->ESMF_FieldGetMod module~esmf ESMF module~esmf_testharnessmod->module~esmf module~esmf_fieldmod ESMF_FieldMod module~esmf_testharnessmod->module~esmf_fieldmod module~esmf_gridutilmod ESMF_GridUtilMod module~esmf_testharnessmod->module~esmf_gridutilmod module~esmf_regridmod ESMF_RegridMod module~esmf_testharnessmod->module~esmf_regridmod module~esmf_testharnessreportmod ESMF_TestHarnessReportMod module~esmf_testharnessmod->module~esmf_testharnessreportmod

Used by

  • module~~esmf_testharnessmod~~UsedByGraph module~esmf_testharnessmod ESMF_TestHarnessMod program~esmf_test_harness esmf_test_harness program~esmf_test_harness->module~esmf_testharnessmod

Variables

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

Functions

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

Arguments

Type IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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