test_get_vertical_dim_spec_names Subroutine

public subroutine test_get_vertical_dim_spec_names()

Arguments

None

Calls

proc~~test_get_vertical_dim_spec_names~~CallsGraph proc~test_get_vertical_dim_spec_names test_get_vertical_dim_spec_names anyexceptions anyexceptions proc~test_get_vertical_dim_spec_names->anyexceptions assert_that assert_that proc~test_get_vertical_dim_spec_names->assert_that assertequal assertequal proc~test_get_vertical_dim_spec_names->assertequal at at proc~test_get_vertical_dim_spec_names->at proc~get_vertical_dim_spec_names_bundle_info get_vertical_dim_spec_names_bundle_info proc~test_get_vertical_dim_spec_names->proc~get_vertical_dim_spec_names_bundle_info proc~make_esmf_info make_esmf_info proc~test_get_vertical_dim_spec_names->proc~make_esmf_info proc~safe_dealloc safe_dealloc proc~test_get_vertical_dim_spec_names->proc~safe_dealloc sourcelocation sourcelocation proc~test_get_vertical_dim_spec_names->sourcelocation ESMF_InfoGetCharAlloc ESMF_InfoGetCharAlloc proc~get_vertical_dim_spec_names_bundle_info->ESMF_InfoGetCharAlloc begin begin proc~get_vertical_dim_spec_names_bundle_info->begin next next proc~get_vertical_dim_spec_names_bundle_info->next of of proc~get_vertical_dim_spec_names_bundle_info->of proc~mapl_return MAPL_Return proc~get_vertical_dim_spec_names_bundle_info->proc~mapl_return proc~mapl_verify MAPL_Verify proc~get_vertical_dim_spec_names_bundle_info->proc~mapl_verify push_back push_back proc~get_vertical_dim_spec_names_bundle_info->push_back stringvector stringvector proc~get_vertical_dim_spec_names_bundle_info->stringvector 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 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->proc~mapl_return interface~mapl_assert MAPL_Assert proc~make_dim_key->interface~mapl_assert

Source Code

   subroutine test_get_vertical_dim_spec_names()
      integer :: status
      character(len=*), parameter :: EXPECTED_NAME_1 = 'VERTICAL_DIM_CENTER'
      character(len=*), parameter :: EXPECTED_NAME_2 = 'VERTICAL_DIM_EDGE'
      type(StringVector), allocatable :: names
      integer :: sz

      call safe_dealloc(bundle_info)
      allocate(bundle_info(3))
      bundle_info(1) = make_esmf_info(vloc=EXPECTED_NAME_1, _RC)
      bundle_info(2) = make_esmf_info(vloc=EXPECTED_NAME_2, _RC)
      bundle_info(3) = make_esmf_info(vloc=EXPECTED_NAME_1, _RC)
      names = get_vertical_dim_spec_names_bundle_info(bundle_info, _RC)
      sz = names%size()
      @assertEqual(2, sz, 'There should only be two unique vertical_dim_spec names.')
      @assertEqual(EXPECTED_NAME_1, names%at(1), 'vertical_dim_spec_name 1 does not match.')
      @assertEqual(EXPECTED_NAME_2, names%at(2), 'vertical_dim_spec_name 2 does not match.')
      call safe_dealloc(bundle_info)

   end subroutine test_get_vertical_dim_spec_names