test_make_geom Subroutine

public subroutine test_make_geom()

Arguments

None

Calls

proc~~test_make_geom~~CallsGraph proc~test_make_geom test_make_geom ESMF_GeomDestroy ESMF_GeomDestroy proc~test_make_geom->ESMF_GeomDestroy ESMF_GeomGet ESMF_GeomGet proc~test_make_geom->ESMF_GeomGet ESMF_GridDestroy ESMF_GridDestroy proc~test_make_geom->ESMF_GridDestroy ESMF_HConfigCreate ESMF_HConfigCreate proc~test_make_geom->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_make_geom->ESMF_HConfigDestroy anyexceptions anyexceptions proc~test_make_geom->anyexceptions assert_that assert_that proc~test_make_geom->assert_that proc~make_geom~5 make_geom proc~test_make_geom->proc~make_geom~5 sourcelocation sourcelocation proc~test_make_geom->sourcelocation proc~make_geom~5->ESMF_HConfigDestroy esmf_hconfigcreateat esmf_hconfigcreateat proc~make_geom~5->esmf_hconfigcreateat get_geom get_geom proc~make_geom~5->get_geom get_geom_manager get_geom_manager proc~make_geom~5->get_geom_manager get_mapl_geom get_mapl_geom proc~make_geom~5->get_mapl_geom proc~mapl_return MAPL_Return proc~make_geom~5->proc~mapl_return proc~mapl_verify MAPL_Verify proc~make_geom~5->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_geom()
      type(ESMF_HConfig) :: hconfig
      type(ESMF_Geom) :: geom
      type(ESMF_Grid) :: grid
      integer :: rank
      integer :: status

      hconfig = ESMF_HConfigCreate(content= &
         "{geom: {class: latlon, im_world: 12, jm_world: 13, pole: PC, " // &
         "dateline: DC, nx: 1, ny: 1}}", _RC)
      geom = make_geom(hconfig, _RC)
      call ESMF_GeomGet(geom, grid=grid, rank=rank, _RC)
      @assert_that(rank, is(2))

      call ESMF_HConfigDestroy(hconfig, _RC)
      call ESMF_GridDestroy(grid, nogarbage=.true., _RC)
      call ESMF_GeomDestroy(geom, _RC)

   end subroutine test_make_geom