test_mirror_ungridded_dims Subroutine

public subroutine test_mirror_ungridded_dims()

Arguments

None

Calls

proc~~test_mirror_ungridded_dims~~CallsGraph proc~test_mirror_ungridded_dims test_mirror_ungridded_dims assert_that assert_that proc~test_mirror_ungridded_dims->assert_that none~can_connect_to~14 FieldSpec%can_connect_to proc~test_mirror_ungridded_dims->none~can_connect_to~14 none~push_back~21 UngriddedDimVector%push_back proc~test_mirror_ungridded_dims->none~push_back~21 proc~mirror_ungridded_dims mirror_ungridded_dims proc~test_mirror_ungridded_dims->proc~mirror_ungridded_dims stringvector stringvector proc~test_mirror_ungridded_dims->stringvector true true proc~test_mirror_ungridded_dims->true interface~are_convertible are_convertible none~can_connect_to~14->interface~are_convertible of of none~can_connect_to~14->of proc~mapl_return MAPL_Return none~can_connect_to~14->proc~mapl_return proc~mapl_verify MAPL_Verify none~can_connect_to~14->proc~mapl_verify none~capacity~121 UngriddedDimVector%capacity none~push_back~21->none~capacity~121 none~resize~42 UngriddedDimVector%resize none~push_back~21->none~resize~42 none~resize_size_kind~8 UngriddedDimVector%resize_size_kind none~resize~42->none~resize_size_kind~8 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~reserve~42 UngriddedDimVector%reserve none~resize_size_kind~8->none~reserve~42

Source Code

   subroutine test_mirror_ungridded_dims()
      type(FieldSpec) :: import_spec
      type(FieldSpec) :: export_spec
      type(ESMF_Geom) :: geom

      type(UngriddedDims) :: mirror_ungrid, export_dims
      type(UngriddedDimVector) :: ungrid_dims
      type(UngriddedDim) :: ungrid_dim

      mirror_ungrid = mirror_ungridded_dims()
      ungrid_dim = UngriddedDim(2)
      call ungrid_dims%push_back(ungrid_dim)
      export_dims = UngriddedDims(ungrid_dims)

      import_spec = FieldSpec( &
           geom=geom, vertical_grid=BasicVerticalGrid(1), vertical_dim_spec=VerticalDimSpec(), &
           typekind=ESMF_TYPEKIND_R4, &
           ungridded_dims = mirror_ungrid, &
           standard_name='A', long_name='AA', attributes=StringVector(), &
           units='m')

      export_spec = FieldSpec( &
           geom=geom, vertical_grid=BasicVerticalGrid(1), vertical_dim_spec=VerticalDimSpec(), &
           typekind=ESMF_TYPEKIND_R4, &
           ungridded_dims = export_dims, &
           standard_name='A', long_name='AA', attributes=StringVector(), &
           units='m')

      @assert_that(import_spec%can_connect_to(export_spec), is(true()))

   end subroutine test_mirror_ungridded_dims