make_geom Function

public function make_geom(hconfig, rc) result(geom)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(inout) :: hconfig
integer, intent(out), optional :: rc

Return Value type(ESMF_Geom)


Calls

proc~~make_geom~4~~CallsGraph proc~make_geom~4 make_geom ESMF_HConfigDestroy ESMF_HConfigDestroy proc~make_geom~4->ESMF_HConfigDestroy esmf_hconfigcreateat esmf_hconfigcreateat proc~make_geom~4->esmf_hconfigcreateat get_geom get_geom proc~make_geom~4->get_geom get_geom_manager get_geom_manager proc~make_geom~4->get_geom_manager get_mapl_geom get_mapl_geom proc~make_geom~4->get_mapl_geom proc~mapl_return MAPL_Return proc~make_geom~4->proc~mapl_return proc~mapl_verify MAPL_Verify proc~make_geom~4->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

Called by

proc~~make_geom~4~~CalledByGraph proc~make_geom~4 make_geom proc~test_create_output_bundle test_create_output_bundle proc~test_create_output_bundle->proc~make_geom~4 proc~test_make_geom test_make_geom proc~test_make_geom->proc~make_geom~4

Source Code

   function make_geom(hconfig, rc) result(geom)
      type(ESMF_Geom) :: geom
      type(ESMF_HConfig), intent(inout) :: hconfig
      integer, optional, intent(out) :: rc
      integer :: status
      type(GeomManager), pointer :: geom_mgr
      type(ESMF_HConfig) :: geom_hconfig
      type(MaplGeom) :: mapl_geom

      geom_mgr => get_geom_manager()
      geom_hconfig = ESMF_HConfigCreateAt(hconfig, keystring='geom', _RC)
      mapl_geom = geom_mgr%get_mapl_geom(geom_hconfig, _RC)
      geom = mapl_geom%get_geom()
      call ESMF_HConfigDestroy(geom_hconfig, _RC)

      _RETURN(_SUCCESS)
   end function make_geom