test_num_levels Subroutine

public subroutine test_num_levels()

Arguments

None

Calls

proc~~test_num_levels~2~~CallsGraph proc~test_num_levels~2 test_num_levels assert_that assert_that proc~test_num_levels~2->assert_that none~get_num_levels~4 FixedLevelsVerticalGrid%get_num_levels proc~test_num_levels~2->none~get_num_levels~4

Source Code

   subroutine test_num_levels()
      type(FixedLevelsVerticalGrid) :: vgrid

      real, parameter :: levels(*) = [1.,5.,7.]

      vgrid = FixedLevelsVerticalGrid(standard_name='air_pressure', units='Pa', levels=levels)
      @assert_that(vgrid%get_num_levels(), is(size(levels)))

   end subroutine test_num_levels