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~5 ModelVerticalGrid%get_num_levels proc~test_num_levels->none~get_num_levels~5

Source Code

   subroutine test_num_levels()
      type(ModelVerticalGrid) :: vgrid
      integer :: num_levels

      num_levels = 10
      vgrid = ModelVerticalGrid(standard_name="height", units="m", num_levels=num_levels)
      @assert_that(vgrid%get_num_levels(), is(num_levels))
   end subroutine test_num_levels