test_get_fptr_shape_vert_only Subroutine

public subroutine test_get_fptr_shape_vert_only()

Arguments

None

Calls

proc~~test_get_fptr_shape_vert_only~~CallsGraph proc~test_get_fptr_shape_vert_only test_get_fptr_shape_vert_only assert_that assert_that proc~test_get_fptr_shape_vert_only->assert_that equal_to equal_to proc~test_get_fptr_shape_vert_only->equal_to proc~get_fptr_shape_private get_fptr_shape_private proc~test_get_fptr_shape_vert_only->proc~get_fptr_shape_private interface~mapl_assert MAPL_Assert proc~get_fptr_shape_private->interface~mapl_assert proc~mapl_return MAPL_Return proc~get_fptr_shape_private->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

    subroutine test_get_fptr_shape_vert_only()
       integer :: expected(ARRAY_RANK), actual(ARRAY_RANK)
       integer, allocatable :: gridToFieldMap(:)
       integer, allocatable :: localElementCount(:)
       logical :: has_vertical

       has_vertical = .TRUE.
       gridToFieldMap = [0, 0]
       localElementCount = [3]
       expected = [1, localElementCount(1), 1]
       actual = get_fptr_shape_private(gridToFieldMap, localElementCount, has_vertical)
       @assert_that(GENERIC_MESSAGE, actual, is(equal_to(expected)))

    end subroutine test_get_fptr_shape_vert_only