test_make_from_hconfig Subroutine

public subroutine test_make_from_hconfig(this)

Arguments

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

Calls

proc~~test_make_from_hconfig~~CallsGraph proc~test_make_from_hconfig test_make_from_hconfig ESMF_HConfigCreate ESMF_HConfigCreate proc~test_make_from_hconfig->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_make_from_hconfig->ESMF_HConfigDestroy assert_that assert_that proc~test_make_from_hconfig->assert_that geommanager geommanager proc~test_make_from_hconfig->geommanager get_geom get_geom proc~test_make_from_hconfig->get_geom get_mapl_geom get_mapl_geom proc~test_make_from_hconfig->get_mapl_geom

Source Code

   subroutine test_make_from_hconfig(this)
      class(ESMF_TestMethod), intent(inout) :: this

      type(GeomManager), target :: geom_manager
      type(ESMF_HConfig) :: hconfig
      integer :: status
      type(MaplGeom), pointer :: mapl_geom
      type(ESMF_Geom) :: geom

      hconfig = ESMF_HConfigCreate(content="{class: latlon, im_world: 12, jm_world: 13, pole: PC, dateline: DC, nx: 1, ny: 1}", &
           rc=status)
      @assert_that(status, is(0))

      geom_manager = GeomManager()
      mapl_geom => geom_manager%get_mapl_geom(hconfig, rc=status)
      @assert_that(status, is(0))

      geom = mapl_geom%get_geom()

      call ESMF_HConfigDestroy(hconfig, rc=status)
      @assert_that(status, is(0))
      
   end subroutine test_make_from_hconfig