test_make_ungridded_dims Subroutine

public subroutine test_make_ungridded_dims()

Arguments

None

Calls

proc~~test_make_ungridded_dims~~CallsGraph proc~test_make_ungridded_dims test_make_ungridded_dims anyexceptions anyexceptions proc~test_make_ungridded_dims->anyexceptions assert_that assert_that proc~test_make_ungridded_dims->assert_that none~add_dim UngriddedDims%add_dim proc~test_make_ungridded_dims->none~add_dim none~make_info~4 UngriddedDims%make_info proc~test_make_ungridded_dims->none~make_info~4 proc~make_ungriddeddims make_ungriddedDims proc~test_make_ungridded_dims->proc~make_ungriddeddims sourcelocation sourcelocation proc~test_make_ungridded_dims->sourcelocation true true proc~test_make_ungridded_dims->true interface~mapl_assert MAPL_Assert none~add_dim->interface~mapl_assert none~get_name~6 UngriddedDim%get_name none~add_dim->none~get_name~6 none~get_num_ungridded UngriddedDims%get_num_ungridded none~add_dim->none~get_num_ungridded none~push_back~79 UngriddedDimVector%push_back none~add_dim->none~push_back~79 proc~mapl_return MAPL_Return none~add_dim->proc~mapl_return ESMF_InfoCreate ESMF_InfoCreate none~make_info~4->ESMF_InfoCreate ESMF_InfoDestroy ESMF_InfoDestroy none~make_info~4->ESMF_InfoDestroy ESMF_InfoSet ESMF_InfoSet none~make_info~4->ESMF_InfoSet none~get_ith_dim_spec UngriddedDims%get_ith_dim_spec none~make_info~4->none~get_ith_dim_spec none~make_info~4->none~get_num_ungridded none~make_info~2 UngriddedDim%make_info none~make_info~4->none~make_info~2 proc~make_dim_key make_dim_key none~make_info~4->proc~make_dim_key none~make_info~4->proc~mapl_return proc~mapl_verify MAPL_Verify none~make_info~4->proc~mapl_verify proc~make_ungriddeddims->ESMF_InfoCreate proc~make_ungriddeddims->ESMF_InfoDestroy interface~mapl_infoget MAPL_InfoGet proc~make_ungriddeddims->interface~mapl_infoget proc~make_ungriddeddims->proc~make_dim_key proc~make_ungriddeddim make_ungriddedDim proc~make_ungriddeddims->proc~make_ungriddeddim proc~make_ungriddeddims->proc~mapl_return proc~make_ungriddeddims->proc~mapl_verify none~get_ith_dim_spec->proc~mapl_return none~get_ith_dim_spec->proc~mapl_verify none~at~373 UngriddedDimVector%at none~get_ith_dim_spec->none~at~373 none~make_info~2->ESMF_InfoCreate none~make_info~2->ESMF_InfoSet none~make_info~2->proc~mapl_return none~make_info~2->proc~mapl_verify none~capacity~469 UngriddedDimVector%capacity none~push_back~79->none~capacity~469 none~resize~158 UngriddedDimVector%resize none~push_back~79->none~resize~158 proc~make_dim_key->interface~mapl_assert proc~make_dim_key->proc~mapl_return proc~make_ungriddeddim->interface~mapl_infoget proc~make_ungriddeddim->proc~mapl_return proc~make_ungriddeddim->proc~mapl_verify 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 none~of_size_kind~25 UngriddedDimVector%of_size_kind none~at~373->none~of_size_kind~25 none~resize_size_kind~25 UngriddedDimVector%resize_size_kind none~resize~158->none~resize_size_kind~25

Source Code

   subroutine test_make_ungridded_dims()
      type(UngriddedDims) :: a, b
      type(ESMF_Info) :: info

      integer :: status

      a = UngriddedDims()
      call a%add_dim(UngriddedDim(name='a1', units='m', coordinates=[2.,3.,5.]))
      call a%add_dim(UngriddedDim(name='a2', units='cm', extent=5))

      info = a%make_info(_RC)

      b = make_UngriddedDims(info, _RC)

      @assert_that(a == b, is(true()))
      
   end subroutine test_make_ungridded_dims