test_num_variants Subroutine

public subroutine test_num_variants()

Arguments

None

Calls

proc~~test_num_variants~~CallsGraph proc~test_num_variants test_num_variants assert_that assert_that proc~test_num_variants->assert_that none~add_variant ModelVerticalGrid%add_variant proc~test_num_variants->none~add_variant none~get_num_variants ModelVerticalGrid%get_num_variants proc~test_num_variants->none~get_num_variants push_back push_back none~add_variant->push_back

Source Code

   subroutine test_num_variants()
      type(ModelVerticalGrid) :: vgrid
      integer :: num_variants

      vgrid = ModelVerticalGrid(num_levels=3)
      @assert_that(vgrid%get_num_variants(), is(0))
      call vgrid%add_variant(short_name='PLE')
      @assert_that(vgrid%get_num_variants(), is(1))
      call vgrid%add_variant(short_name='ZLE')
      @assert_that(vgrid%get_num_variants(), is(2))

   end subroutine test_num_variants