test_make_from_hconfig Subroutine

public subroutine test_make_from_hconfig()

Arguments

None

Calls

proc~~test_make_from_hconfig~3~~CallsGraph proc~test_make_from_hconfig~3 test_make_from_hconfig ESMF_HConfigCreate ESMF_HConfigCreate proc~test_make_from_hconfig~3->ESMF_HConfigCreate assert_that assert_that proc~test_make_from_hconfig~3->assert_that none~make_geom LatLonGeomFactory%make_geom proc~test_make_from_hconfig~3->none~make_geom none~make_spec~4 LatLonGeomFactory%make_spec proc~test_make_from_hconfig~3->none~make_spec~4 none~make_geom_spec_from_metadata LatLonGeomFactory%make_geom_spec_from_metadata none~make_spec~4->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()

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

      hconfig = ESMF_HConfigCreate(content="{im_world: 12, jm_world: 13, pole: PC, dateline: DC, 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