test_num_levels Subroutine

public subroutine test_num_levels()

Arguments

None

Calls

proc~~test_num_levels~~CallsGraph proc~test_num_levels test_num_levels assert_that assert_that proc~test_num_levels->assert_that none~get_num_levels~3 ModelVerticalGrid%get_num_levels proc~test_num_levels->none~get_num_levels~3

Source Code

   subroutine test_num_levels()
      type(ModelVerticalGrid) :: vgrid

      integer :: num_levels

      num_levels = 10
      vgrid = ModelVerticalGrid(num_levels=num_levels)
      @assert_that(vgrid%get_num_levels(), is(num_levels))

   end subroutine test_num_levels