test_mirror_geom_cost Subroutine

public subroutine test_mirror_geom_cost()

Arguments

None

Calls

proc~~test_mirror_geom_cost~~CallsGraph proc~test_mirror_geom_cost test_mirror_geom_cost assert_that assert_that proc~test_mirror_geom_cost->assert_that none~extension_cost~5 FieldSpec%extension_cost proc~test_mirror_geom_cost->none~extension_cost~5 stringvector stringvector proc~test_mirror_geom_cost->stringvector interface~mapl_assert MAPL_Assert none~extension_cost~5->interface~mapl_assert proc~mapl_return MAPL_Return none~extension_cost~5->proc~mapl_return 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

Source Code

   subroutine test_mirror_geom_cost()
      type(FieldSpec) :: import_spec
      type(FieldSpec) :: export_spec

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

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

      @assert_that(export_spec%extension_cost(import_spec), is(0))

   end subroutine test_mirror_geom_cost