test_halo_communication_mod Module Reference

Functions/Subroutines
subroutine	test_get_number_communication_requests
subroutine	test_determine_halo_corner
subroutine	test_determine_halo_corner_elements
subroutine	test_get_pid_neighbour_location
subroutine	test_pid_been_seen
subroutine	test_retrieve_same_neighbour_information
subroutine	test_perform_local_data_copy_for_dimension

Function/Subroutine Documentation

test_determine_halo_corner()

subroutine test_halo_communication_mod::test_determine_halo_corner

Definition at line 37 of file test_halocommunication.F90.

    type(local_grid_type) :: local_grid
    integer :: halo_corner_size
 
    local_grid%halo_size(x_index)=2
    local_grid%halo_size(y_index)=2
    local_grid%size(z_index) = 10
    
    halo_corner_size = determine_halo_corner_size(local_grid)
 
    call assert_equals(10*2*2, halo_corner_size, "Test halo_size")

Here is the call graph for this function:

Here is the caller graph for this function:

test_determine_halo_corner_elements()

subroutine test_halo_communication_mod::test_determine_halo_corner_elements

Definition at line 51 of file test_halocommunication.F90.

    type(local_grid_type) :: local_grid
    integer :: elemNumber
    allocate( local_grid%corner_neighbours(4,2) )
    local_grid%corner_neighbours(1,1) = 5
    local_grid%corner_neighbours(2,2) = 5 
    local_grid%size(z_index) = 10
    elemnumber = determine_halo_corner_element_sizes(local_grid, 5)    
    
    !4 elements per corner*10 in Z direction
    call assert_equals(10*4, elemnumber, "Test number elements halo_size")
    ! if not PID elemNumber should be 0
    elemnumber = determine_halo_corner_element_sizes(local_grid, 15)    
    call assert_equals(0, elemnumber, "Test number elements halo_size")

Here is the call graph for this function:

Here is the caller graph for this function:

test_get_number_communication_requests()

subroutine test_halo_communication_mod::test_get_number_communication_requests

Definition at line 22 of file test_halocommunication.F90.

    type(neighbour_description_type), dimension(:), allocatable :: halo_swap_neigh
    integer :: i, requests
    allocate(halo_swap_neigh(6))    
    
    do i=1,5
       halo_swap_neigh(i)%recv_size = i
       halo_swap_neigh(i)%recv_corner_size = i
    enddo
    
    requests = get_number_communication_requests(halo_swap_neigh, 5)
    call assert_equals(10, requests, "Test number of requests")

Here is the call graph for this function:

Here is the caller graph for this function:

test_get_pid_neighbour_location()

subroutine test_halo_communication_mod::test_get_pid_neighbour_location

Definition at line 68 of file test_halocommunication.F90.

    type(local_grid_type) :: local_grid
    type(neighbour_description_type), dimension(:), allocatable :: halo_swap_neigh
    integer :: i, pids
 
    allocate(halo_swap_neigh(6))    
    do i=1,5
       halo_swap_neigh(i)%pid = i
    enddo
    halo_swap_neigh(2)%pid=1
    pids = get_pid_neighbour_location(halo_swap_neigh, 1, 5)
    
    call assert_equals(1, pids, "Test unique pid location")
    pids = get_pid_neighbour_location(halo_swap_neigh, 10, 5)
    call assert_equals(-1, pids, "Test pid location")

Here is the call graph for this function:

Here is the caller graph for this function:

test_perform_local_data_copy_for_dimension()

subroutine test_halo_communication_mod::test_perform_local_data_copy_for_dimension

Definition at line 141 of file test_halocommunication.F90.

    type(local_grid_type) :: local_grid
    real(kind=default_precision), dimension(10,20,30) :: field_data
    integer :: i,j,k
    
     allocate( local_grid%neighbours(3,4) )
     ! start
     local_grid%local_domain_start_index(z_index) = 1
     local_grid%local_domain_start_index(y_index) = 11
     local_grid%local_domain_start_index(x_index) = 21
     ! end
     local_grid%local_domain_end_index(z_index) = 10
     local_grid%local_domain_end_index(y_index) = 20
     local_grid%local_domain_end_index(x_index) = 30
     
     do j=1,3
        do i =1,4
           local_grid%neighbours(j,i) = i*j
        enddo
     enddo
     do i=1,10
        do j=1,20
           do k=1,30
              field_data(i,j,k) = i*j*k
           enddo
        enddo
     enddo
  
     call assert_not_equals(field_data(1,2,21), field_data(1,10,21)&
          , "Test fields are not equal before calling")
     call perform_local_data_copy_for_dimension(x_index, 1, 1, local_grid, &
          field_data)
  

Here is the call graph for this function:

Here is the caller graph for this function:

test_pid_been_seen()

subroutine test_halo_communication_mod::test_pid_been_seen

Definition at line 86 of file test_halocommunication.F90.

    integer :: neigh_pids(8)
    logical :: seen
    neigh_pids(1) = -1
    neigh_pids(2) = 2
    neigh_pids(3) = 0
 
    seen  = has_pid_already_been_seen(neigh_pids, 1)
    call  assert_false( seen, "Test not seen if pid=-1" )
    neigh_pids(1) = 0
    seen  = has_pid_already_been_seen(neigh_pids, 2)
    call  assert_true( seen, "Test seen when there is not -1 if pid=2" )
    seen  = has_pid_already_been_seen(neigh_pids, 0)
    call  assert_true( seen, "Test seen when there is not - 1 if pid=0" )
    

Here is the call graph for this function:

Here is the caller graph for this function:

test_retrieve_same_neighbour_information()

subroutine test_halo_communication_mod::test_retrieve_same_neighbour_information

Definition at line 104 of file test_halocommunication.F90.

    type(local_grid_type) :: local_grid
    logical, dimension(3) :: retrieve_same_neigh_info
    integer :: i
    allocate( local_grid%neighbours(3,4) )
    local_grid%halo_size(y_index) = 2
    local_grid%halo_size(x_index) = 2
 
    local_grid%neighbours(y_index,1) = 2
    local_grid%neighbours(y_index,2) = 2
    local_grid%neighbours(y_index,3) = 8
    local_grid%neighbours(y_index,4) = 8
 
    local_grid%neighbours(x_index,1) = 4
    local_grid%neighbours(x_index,2) = 4
    local_grid%neighbours(x_index,3) = 6
    local_grid%neighbours(x_index,4) = 6
 
    retrieve_same_neigh_info = retrieve_same_neighbour_information(local_grid)
 
    call assert_true(retrieve_same_neigh_info(1),"Test Z")
    call assert_false(retrieve_same_neigh_info(2),"Test Y")
    call assert_false(retrieve_same_neigh_info(3),"Test Z")
 
 
    local_grid%neighbours(y_index,3) = 2
    local_grid%neighbours(y_index,4) = 2
 
    retrieve_same_neigh_info = retrieve_same_neighbour_information(local_grid)
 
    call assert_true(retrieve_same_neigh_info(1),"Test Z")
    call assert_true(retrieve_same_neigh_info(2),"Test Y")
    call assert_false(retrieve_same_neigh_info(3),"Test Z")
    

Here is the call graph for this function:

Here is the caller graph for this function: