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 anyexceptions anyexceptions proc~test_get_coordinate_field_simple->anyexceptions 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~3 ModelVerticalGrid%get_coordinate_field proc~test_get_coordinate_field_simple->none~get_coordinate_field~3 proc~make_geom~4 make_geom proc~test_get_coordinate_field_simple->proc~make_geom~4 proc~setup~5 setup proc~test_get_coordinate_field_simple->proc~setup~5 sourcelocation sourcelocation proc~test_get_coordinate_field_simple->sourcelocation

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 :: status
      real(ESMF_KIND_R4), pointer :: a(:,:,:)

      call setup(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', _RC)
      @assert_that(associated(coupler), is(false()))

      call ESMF_FieldGet(vcoord, fArrayPtr=a, _RC)
      @assert_that(a, every_item(is(equal_to(3.))))

   end subroutine test_get_coordinate_field_simple