setservices Subroutine

public subroutine setservices(gc, rc)

Uses

  • proc~~setservices~~UsesGraph proc~setservices setservices module~mapl3g_generic mapl3g_Generic proc~setservices->module~mapl3g_generic ESMF ESMF module~mapl3g_generic->ESMF module~mapl3g_componentspec mapl3g_ComponentSpec module~mapl3g_generic->module~mapl3g_componentspec module~mapl3g_esmf_interfaces mapl3g_ESMF_Interfaces module~mapl3g_generic->module~mapl3g_esmf_interfaces module~mapl3g_griddedcomponentdriver mapl3g_GriddedComponentDriver module~mapl3g_generic->module~mapl3g_griddedcomponentdriver module~mapl3g_hconfig_get mapl3g_hconfig_get module~mapl3g_generic->module~mapl3g_hconfig_get module~mapl3g_innermetacomponent mapl3g_InnerMetaComponent module~mapl3g_generic->module~mapl3g_innermetacomponent module~mapl3g_outermetacomponent mapl3g_OuterMetaComponent module~mapl3g_generic->module~mapl3g_outermetacomponent module~mapl3g_stateitemspec mapl3g_StateItemSpec module~mapl3g_generic->module~mapl3g_stateitemspec module~mapl3g_stateregistry mapl3g_StateRegistry module~mapl3g_generic->module~mapl3g_stateregistry module~mapl3g_ungriddeddims mapl3g_UngriddedDims module~mapl3g_generic->module~mapl3g_ungriddeddims module~mapl3g_validation mapl3g_Validation module~mapl3g_generic->module~mapl3g_validation module~mapl3g_variablespec mapl3g_VariableSpec module~mapl3g_generic->module~mapl3g_variablespec module~mapl3g_verticalgrid mapl3g_VerticalGrid module~mapl3g_generic->module~mapl3g_verticalgrid module~mapl_errorhandling mapl_ErrorHandling module~mapl3g_generic->module~mapl_errorhandling module~mapl_internalconstantsmod MAPL_InternalConstantsMod module~mapl3g_generic->module~mapl_internalconstantsmod module~mapl_keywordenforcer mapl_KeywordEnforcer module~mapl3g_generic->module~mapl_keywordenforcer module~pflogger pflogger module~mapl3g_generic->module~pflogger

Arguments

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

Calls

proc~~setservices~~CallsGraph proc~setservices setservices ESMF_HConfigCreate ESMF_HConfigCreate proc~setservices->ESMF_HConfigCreate interface~mapl_assert MAPL_Assert proc~setservices->interface~mapl_assert interface~mapl_gridcompsetentrypoint MAPL_GridCompSetEntryPoint proc~setservices->interface~mapl_gridcompsetentrypoint proc~mapl_return MAPL_Return proc~setservices->proc~mapl_return proc~mapl_verify MAPL_Verify proc~setservices->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~~setservices~~CalledByGraph proc~setservices setservices proc~setservices~4 setServices proc~setservices~4->proc~setservices

Source Code

   subroutine setservices(gc, rc)
      use mapl3g_Generic, only: MAPL_GridCompSetEntryPoint
      type(ESMF_GridComp) :: gc
      integer, intent(out) :: rc

      integer :: status
      type(ESMF_HConfig) :: config_A, config_B

      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_RUN, run, _RC)
      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_RUN, run_extra, phase_name='extra', _RC)
      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_INITIALIZE, init, _RC)
      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_FINALIZE, finalize, _RC)

      config_A = ESMF_HConfigCreate(filename='./scenarios/leaf_A.yaml',rc=status)
      _ASSERT(status == 0, 'bad config')
      config_B = ESMF_HConfigCreate(filename='./scenarios/leaf_B.yaml',rc=status)
      _ASSERT(status == 0, 'bad config')
      

      _RETURN(ESMF_SUCCESS)
   end subroutine setservices