test_get_num_levels Subroutine

public subroutine test_get_num_levels()

Arguments

None

Calls

proc~~test_get_num_levels~~CallsGraph proc~test_get_num_levels test_get_num_levels anyexceptions anyexceptions proc~test_get_num_levels->anyexceptions assert_that assert_that proc~test_get_num_levels->assert_that assertequal assertequal proc~test_get_num_levels->assertequal proc~get_num_levels_bundle_info get_num_levels_bundle_info proc~test_get_num_levels->proc~get_num_levels_bundle_info proc~make_esmf_info make_esmf_info proc~test_get_num_levels->proc~make_esmf_info proc~safe_dealloc safe_dealloc proc~test_get_num_levels->proc~safe_dealloc sourcelocation sourcelocation proc~test_get_num_levels->sourcelocation ESMF_InfoGet ESMF_InfoGet proc~get_num_levels_bundle_info->ESMF_InfoGet ESMF_InfoGetCharAlloc ESMF_InfoGetCharAlloc proc~get_num_levels_bundle_info->ESMF_InfoGetCharAlloc interface~mapl_assert MAPL_Assert proc~get_num_levels_bundle_info->interface~mapl_assert proc~mapl_return MAPL_Return proc~get_num_levels_bundle_info->proc~mapl_return proc~mapl_verify MAPL_Verify proc~get_num_levels_bundle_info->proc~mapl_verify proc~make_esmf_info->anyexceptions proc~make_esmf_info->assert_that proc~make_esmf_info->sourcelocation ESMF_InfoCreate ESMF_InfoCreate proc~make_esmf_info->ESMF_InfoCreate proc~make_ungridded_dims_info make_ungridded_dims_info proc~make_esmf_info->proc~make_ungridded_dims_info proc~make_vertical_dim make_vertical_dim proc~make_esmf_info->proc~make_vertical_dim proc~make_vertical_geom make_vertical_geom proc~make_esmf_info->proc~make_vertical_geom proc~deallocate_destroy deallocate_destroy proc~safe_dealloc->proc~deallocate_destroy proc~destroy_all destroy_all proc~deallocate_destroy->proc~destroy_all proc~make_ungridded_dims_info->anyexceptions proc~make_ungridded_dims_info->assert_that proc~make_ungridded_dims_info->sourcelocation ESMF_InfoSet ESMF_InfoSet proc~make_ungridded_dims_info->ESMF_InfoSet proc~make_dim_key make_dim_key proc~make_ungridded_dims_info->proc~make_dim_key proc~make_vertical_dim->anyexceptions proc~make_vertical_dim->assert_that proc~make_vertical_dim->sourcelocation proc~make_vertical_dim->ESMF_InfoSet proc~make_vertical_geom->anyexceptions proc~make_vertical_geom->assert_that proc~make_vertical_geom->sourcelocation proc~make_vertical_geom->ESMF_InfoSet at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception ESMF_InfoDestroy ESMF_InfoDestroy proc~destroy_all->ESMF_InfoDestroy proc~make_dim_key->interface~mapl_assert proc~make_dim_key->proc~mapl_return

Source Code

   subroutine test_get_num_levels()
      integer :: status
      integer, parameter :: EXPECTED_NUM_LEVELS = 3
      integer :: num_levels
      integer :: i

      call safe_dealloc(bundle_info)
      allocate(bundle_info(2))
      do i=1, size(bundle_info)
         bundle_info(i) = make_esmf_info(num_levels=EXPECTED_NUM_LEVELS, _RC)
      end do
      num_levels = get_num_levels_bundle_info(bundle_info, _RC)
      @assertEqual(EXPECTED_NUM_LEVELS, num_levels, 'num_levels does not match.')

      call safe_dealloc(bundle_info)

   end subroutine test_get_num_levels