test_make_from_hconfig Subroutine

public subroutine test_make_from_hconfig(this)

Arguments

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

Calls

proc~~test_make_from_hconfig~2~~CallsGraph proc~test_make_from_hconfig~2 test_make_from_hconfig ESMF_HConfigCreate ESMF_HConfigCreate proc~test_make_from_hconfig~2->ESMF_HConfigCreate assert_that assert_that proc~test_make_from_hconfig~2->assert_that none~make_geom~3 CubedSphereGeomFactory%make_geom proc~test_make_from_hconfig~2->none~make_geom~3 none~make_spec~3 CubedSphereGeomFactory%make_spec proc~test_make_from_hconfig~2->none~make_spec~3 none~make_geom_spec_from_metadata LatLonGeomFactory%make_geom_spec_from_metadata none~make_spec~3->none~make_geom_spec_from_metadata interface~make_latlongeomspec make_LatLonGeomSpec none~make_geom_spec_from_metadata->interface~make_latlongeomspec proc~mapl_return MAPL_Return none~make_geom_spec_from_metadata->proc~mapl_return proc~mapl_verify MAPL_Verify none~make_geom_spec_from_metadata->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_from_hconfig(this)
      class(MpiTestMethod), intent(inout) :: this

      type(ESMF_HConfig) :: hconfig
      integer :: status
      type(CubedSphereGeomFactory) :: factory
      class(GeomSpec), allocatable :: geom_spec
      type(ESMF_Geom) :: geom

      hconfig = ESMF_HConfigCreate(content="{im_world: 12, nx: 1, ny: 1}", rc=status)
      @assert_that(status, is(0))

      allocate(geom_spec, source=factory%make_spec(hconfig, rc=status))
      @assert_that(status, is(0))

      geom = factory%make_geom(geom_spec, rc=status)
      @assert_that(status, is(0))
   end subroutine test_make_from_hconfig