test_get_coordinate_field_simple Subroutine

public subroutine test_get_coordinate_field_simple(this)

Arguments

Type IntentOptional Attributes Name
class(ESMF_TestMethod), intent(inout) :: this

Calls

proc~~test_get_coordinate_field_simple~~CallsGraph proc~test_get_coordinate_field_simple test_get_coordinate_field_simple assert_that assert_that proc~test_get_coordinate_field_simple->assert_that equal_to equal_to proc~test_get_coordinate_field_simple->equal_to esmf_fieldget esmf_fieldget proc~test_get_coordinate_field_simple->esmf_fieldget every_item every_item proc~test_get_coordinate_field_simple->every_item false false proc~test_get_coordinate_field_simple->false none~get_coordinate_field~2 ModelVerticalGrid%get_coordinate_field proc~test_get_coordinate_field_simple->none~get_coordinate_field~2 proc~make_geom~3 make_geom proc~test_get_coordinate_field_simple->proc~make_geom~3 proc~mapl_verify MAPL_Verify proc~test_get_coordinate_field_simple->proc~mapl_verify proc~setup~6 setup proc~test_get_coordinate_field_simple->proc~setup~6 none~get_coordinate_field~2->proc~mapl_verify get_payload get_payload none~get_coordinate_field~2->get_payload interface~mapl_assert MAPL_Assert none~get_coordinate_field~2->interface~mapl_assert none~extend StateRegistry%extend none~get_coordinate_field~2->none~extend none~get_producer StateItemExtension%get_producer none~get_coordinate_field~2->none~get_producer none~get_short_name ModelVerticalGrid%get_short_name none~get_coordinate_field~2->none~get_short_name none~get_spec StateItemExtension%get_spec none~get_coordinate_field~2->none~get_spec proc~mapl_return MAPL_Return none~get_coordinate_field~2->proc~mapl_return proc~make_geom~3->proc~mapl_verify ESMF_HConfigCreate ESMF_HConfigCreate proc~make_geom~3->ESMF_HConfigCreate get_geom get_geom proc~make_geom~3->get_geom get_geom_manager get_geom_manager proc~make_geom~3->get_geom_manager get_mapl_geom get_mapl_geom proc~make_geom~3->get_mapl_geom proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~setup~6->proc~make_geom~3 proc~setup~6->proc~mapl_verify create create proc~setup~6->create proc~setup~6->interface~mapl_assert none~add_primary_spec StateRegistry%add_primary_spec proc~setup~6->none~add_primary_spec none~add_short_name ModelVerticalGrid%add_short_name proc~setup~6->none~add_short_name none~get_primary_extension StateRegistry%get_primary_extension proc~setup~6->none~get_primary_extension proc~setup~6->none~get_spec none~set_active StateItemSpec%set_active proc~setup~6->none~set_active none~set_registry ModelVerticalGrid%set_registry proc~setup~6->none~set_registry proc~make_itemspec make_itemSpec proc~setup~6->proc~make_itemspec set_geometry set_geometry proc~setup~6->set_geometry

Source Code

   subroutine test_get_coordinate_field_simple(this)
      class(ESMF_TestMethod), intent(inout) :: this
      type(ModelVerticalGrid) :: vgrid
      type(GriddedComponentDriver), pointer :: coupler
      type(ESMF_Field) :: vcoord
      type(ESMF_Geom) :: geom
      integer :: rc, status
      real(ESMF_KIND_R4), pointer :: a(:,:,:)

      call setup("PLE", vgrid, _RC)
      geom = make_geom(_RC)

      call vgrid%get_coordinate_field( &
           vcoord, coupler, &
           standard_name="air_pressure", &
           geom=geom, &
           typekind=ESMF_TYPEKIND_R4, &
           units="hPa", &
           vertical_dim_spec=VERTICAL_DIM_EDGE, &
           _RC)
      @assert_that(associated(coupler), is(false()))

      call ESMF_FieldGet(vcoord, fArrayPtr=a, _RC)
      @assert_that(a, every_item(is(equal_to(3.))))
      _UNUSED_DUMMY(this)
   end subroutine test_get_coordinate_field_simple