test_make_ungridded_dim Subroutine

public subroutine test_make_ungridded_dim()

Arguments

None

Calls

proc~~test_make_ungridded_dim~~CallsGraph proc~test_make_ungridded_dim test_make_ungridded_dim anyexceptions anyexceptions proc~test_make_ungridded_dim->anyexceptions assert_that assert_that proc~test_make_ungridded_dim->assert_that none~make_info~2 UngriddedDim%make_info proc~test_make_ungridded_dim->none~make_info~2 proc~make_ungriddeddim make_ungriddedDim proc~test_make_ungridded_dim->proc~make_ungriddeddim sourcelocation sourcelocation proc~test_make_ungridded_dim->sourcelocation true true proc~test_make_ungridded_dim->true ESMF_InfoCreate ESMF_InfoCreate none~make_info~2->ESMF_InfoCreate ESMF_InfoSet ESMF_InfoSet none~make_info~2->ESMF_InfoSet proc~mapl_return MAPL_Return none~make_info~2->proc~mapl_return proc~mapl_verify MAPL_Verify none~make_info~2->proc~mapl_verify interface~mapl_infoget MAPL_InfoGet 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

Source Code

   subroutine test_make_ungridded_dim()
      type(UngriddedDim) :: a, b
      type(ESMF_Info) :: info

      integer :: status
      
      a = UngriddedDim(name='a', units='m', coordinates=[2.,3.,5.])
      info = a%make_info(_RC)

      b = make_UngriddedDim(info, _RC)

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