setServices Subroutine

public subroutine setServices(gridcomp, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: gridcomp
integer, intent(out) :: rc

Calls

proc~~setservices~7~~CallsGraph proc~setservices~7 setServices ESMF_HConfigCreate ESMF_HConfigCreate proc~setservices~7->ESMF_HConfigCreate interface~mapl_gridcompget MAPL_GridCompGet proc~setservices~7->interface~mapl_gridcompget interface~mapl_gridcompsetentrypoint MAPL_GridCompSetEntryPoint proc~setservices~7->interface~mapl_gridcompsetentrypoint proc~mapl_return MAPL_Return proc~setservices~7->proc~mapl_return proc~mapl_verify MAPL_Verify proc~setservices~7->proc~mapl_verify proc~merge_config merge_config proc~setservices~7->proc~merge_config 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 proc~merge_config->ESMF_HConfigCreate proc~merge_config->proc~mapl_return proc~merge_config->proc~mapl_verify proc~merge_config->proc~merge_config ESMF_HConfigAdd ESMF_HConfigAdd proc~merge_config->ESMF_HConfigAdd ESMF_HConfigAsStringMapKey ESMF_HConfigAsStringMapKey proc~merge_config->ESMF_HConfigAsStringMapKey ESMF_HConfigCreateAtMapVal ESMF_HConfigCreateAtMapVal proc~merge_config->ESMF_HConfigCreateAtMapVal ESMF_HConfigDestroy ESMF_HConfigDestroy proc~merge_config->ESMF_HConfigDestroy ESMF_HConfigIterLoop ESMF_HConfigIterLoop proc~merge_config->ESMF_HConfigIterLoop ESMF_HConfigSet ESMF_HConfigSet proc~merge_config->ESMF_HConfigSet esmf_hconfigasstringseq esmf_hconfigasstringseq proc~merge_config->esmf_hconfigasstringseq esmf_hconfigcreateat esmf_hconfigcreateat proc~merge_config->esmf_hconfigcreateat esmf_hconfigisdefined esmf_hconfigisdefined proc~merge_config->esmf_hconfigisdefined esmf_hconfigissequence esmf_hconfigissequence proc~merge_config->esmf_hconfigissequence esmf_hconfigiterbegin esmf_hconfigiterbegin proc~merge_config->esmf_hconfigiterbegin esmf_hconfigiterend esmf_hconfigiterend proc~merge_config->esmf_hconfigiterend interface~mapl_assert MAPL_Assert proc~merge_config->interface~mapl_assert

Called by

proc~~setservices~7~~CalledByGraph proc~setservices~7 setServices proc~setservices~8 setServices proc~setservices~8->proc~setservices~7

Source Code

   subroutine setServices(gridcomp, rc)
      type(ESMF_GridComp) :: gridcomp
      integer, intent(out) :: rc

      type(ESMF_HConfig) :: hconfig, merged_configs
      integer :: status

      call MAPL_GridCompSetEntryPoint(gridcomp, ESMF_METHOD_INITIALIZE, init, phase_name="GENERIC::INIT_USER", _RC)
      call MAPL_GridCompSetEntryPoint(gridcomp, ESMF_METHOD_RUN, run, phase_name='run', _RC)

      call MAPL_GridCompGet(gridcomp, hconfig=hconfig, _RC)
      merged_configs = ESMF_HConfigCreate(_RC)
      call merge_config(merged_configs, hconfig, _RC)

      _RETURN(_SUCCESS)
   end subroutine setServices