make_child_hconfig Function

public function make_child_hconfig(hconfig, collection_name, rc) result(child_hconfig)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: hconfig
character(len=*), intent(in) :: collection_name
integer, intent(out), optional :: rc

Return Value type(ESMF_HConfig)


Calls

proc~~make_child_hconfig~~CallsGraph proc~make_child_hconfig make_child_hconfig ESMF_HConfigAdd ESMF_HConfigAdd proc~make_child_hconfig->ESMF_HConfigAdd ESMF_HConfigDestroy ESMF_HConfigDestroy proc~make_child_hconfig->ESMF_HConfigDestroy proc~get_subconfig get_subconfig proc~make_child_hconfig->proc~get_subconfig proc~mapl_return MAPL_Return proc~make_child_hconfig->proc~mapl_return proc~mapl_verify MAPL_Verify proc~make_child_hconfig->proc~mapl_verify proc~get_subconfig->proc~mapl_return proc~get_subconfig->proc~mapl_verify esmf_hconfigcreateat esmf_hconfigcreateat proc~get_subconfig->esmf_hconfigcreateat esmf_hconfigisdefined esmf_hconfigisdefined proc~get_subconfig->esmf_hconfigisdefined esmf_hconfigismap esmf_hconfigismap proc~get_subconfig->esmf_hconfigismap interface~mapl_assert MAPL_Assert proc~get_subconfig->interface~mapl_assert 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_child_hconfig~~CalledByGraph proc~make_child_hconfig make_child_hconfig proc~setservices~11 setServices proc~setservices~11->proc~make_child_hconfig proc~test_make_child_hconfig test_make_child_hconfig proc~test_make_child_hconfig->proc~make_child_hconfig proc~setservices~12 setServices proc~setservices~12->proc~setservices~11

Source Code

   function make_child_hconfig(hconfig, collection_name, rc) result(child_hconfig)
      type(ESMF_HConfig) :: child_hconfig
      type(ESMF_HConfig), intent(in) :: hconfig
      character(len=*), intent(in) :: collection_name
      integer, optional, intent(out) :: rc

      integer :: status
      type(ESMF_HConfig) :: collections_hconfig

      collections_hconfig = get_subconfig(hconfig, 'collections', _RC)
      child_hconfig = get_subconfig(collections_hconfig, collection_name, _RC)
      call ESMF_HConfigDestroy(collections_hconfig, _RC)

      call ESMF_HConfigAdd(child_hconfig, content=collection_name, addKeyString='collection_name', _RC)

      _RETURN(_SUCCESS)
   end function make_child_hconfig