test_get_vertical_dimension_num_levels Subroutine

public subroutine test_get_vertical_dimension_num_levels()

Arguments

None

Calls

proc~~test_get_vertical_dimension_num_levels~~CallsGraph proc~test_get_vertical_dimension_num_levels test_get_vertical_dimension_num_levels assertequal assertequal proc~test_get_vertical_dimension_num_levels->assertequal interface~make_message make_message proc~test_get_vertical_dimension_num_levels->interface~make_message proc~get_vertical_dimension_num_levels get_vertical_dimension_num_levels proc~test_get_vertical_dimension_num_levels->proc~get_vertical_dimension_num_levels proc~make_message_string make_message_string interface~make_message->proc~make_message_string

Source Code

    subroutine test_get_vertical_dimension_num_levels()
      integer, parameter :: NUMLEVELS = 3
      character(:), allocatable :: vertical_dim
      integer :: num_levels
      character(len=:), allocatable :: message

      vertical_dim = DIM_CENTER
      num_levels = NUMLEVELS
      message = make_message('Num_levels does not match for', vertical_dim)
      @assertEqual(num_levels, get_vertical_dimension_num_levels(vertical_dim, NUMLEVELS), message)

      vertical_dim = DIM_EDGE
      num_levels = NUMLEVELS+1
      message = make_message('Num_levels does not match for', vertical_dim)
      @assertEqual(num_levels, get_vertical_dimension_num_levels(vertical_dim, NUMLEVELS), message)

    end subroutine test_get_vertical_dimension_num_levels