test_grid_mod Module Reference

Functions/Subroutines
subroutine	test_xyz_index
subroutine	test_type_parameters
subroutine	test_global_active_dimensions
subroutine	test_local_active_dimensions

Function/Subroutine Documentation

test_global_active_dimensions()

subroutine test_grid_mod::test_global_active_dimensions

Definition at line 26 of file test_grids.F90.

    type(global_grid_type) :: global_grid
    logical, dimension(3) :: expected = (/ .true., .true., .true. /) 
    integer :: i
    do i = 1,3
       call assert_not_equals(expected(i), global_grid%active(i), &
            "Test the status of the dimensions after creating a global_grid_type object")
    end do

Here is the caller graph for this function:

test_local_active_dimensions()

subroutine test_grid_mod::test_local_active_dimensions

Definition at line 37 of file test_grids.F90.

    type(local_grid_type) :: local_grid
    logical, dimension(3) :: expected = (/ .true., .true., .true. /) 
    integer :: i
    do i = 1,3
       call assert_not_equals(expected(i), local_grid%active(i), &
            "Test the status of the dimensions after creating a local_grid_type object")
    end do

Here is the caller graph for this function:

test_type_parameters()

subroutine test_grid_mod::test_type_parameters

Definition at line 20 of file test_grids.F90.

    call assert_equals(1, primal_grid, "PRIMAL_GRID is 1")
    call assert_equals(2, dual_grid, "DUAL_GRID is 2")

Here is the caller graph for this function:

test_xyz_index()

subroutine test_grid_mod::test_xyz_index

Definition at line 13 of file test_grids.F90.

    call assert_equals(1, z_index, "Z_INDEX is 1")
    call assert_equals(2, y_index, "Y_INDEX is 2")
    call assert_equals(3, x_index, "X_INDEX is 3")

Here is the caller graph for this function: