setServices Subroutine

subroutine setServices(gc, rc)

Uses

  • proc~~setservices~9~~UsesGraph proc~setservices~9 setServices ESMF ESMF proc~setservices~9->ESMF module~mapl_errorhandling mapl_ErrorHandling proc~setservices~9->module~mapl_errorhandling module~protoextdatagc ProtoExtDataGC proc~setservices~9->module~protoextdatagc module~mapl_throwmod MAPL_ThrowMod module~mapl_errorhandling->module~mapl_throwmod mpi mpi module~mapl_errorhandling->mpi module~protoextdatagc->ESMF module~protoextdatagc->module~mapl_errorhandling module~mapl3g_actualconnectionpt mapl3g_ActualConnectionPt module~protoextdatagc->module~mapl3g_actualconnectionpt module~mapl3g_connectionpt mapl3g_ConnectionPt module~protoextdatagc->module~mapl3g_connectionpt module~mapl3g_esmf_subset mapl3g_ESMF_Subset module~protoextdatagc->module~mapl3g_esmf_subset module~mapl3g_generic mapl3g_Generic module~protoextdatagc->module~mapl3g_generic module~mapl3g_outermetacomponent mapl3g_OuterMetaComponent module~protoextdatagc->module~mapl3g_outermetacomponent module~mapl3g_simpleconnection mapl3g_SimpleConnection module~protoextdatagc->module~mapl3g_simpleconnection module~mapl3g_stateitemextension mapl3g_StateItemExtension module~protoextdatagc->module~mapl3g_stateitemextension module~mapl3g_stateitemspec mapl3g_StateItemSpec module~protoextdatagc->module~mapl3g_stateitemspec module~mapl3g_stateregistry mapl3g_StateRegistry module~protoextdatagc->module~mapl3g_stateregistry module~mapl3g_usersetservices mapl3g_UserSetServices module~protoextdatagc->module~mapl3g_usersetservices module~mapl3g_virtualconnectionpt mapl3g_VirtualConnectionPt module~protoextdatagc->module~mapl3g_virtualconnectionpt module~mapl_fieldutils MAPL_FieldUtils module~protoextdatagc->module~mapl_fieldutils

Arguments

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

Calls

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

Source Code

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

      integer :: status

      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_RUN, run, _RC)
      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_INITIALIZE, init_modify_advertised, phase_name='GENERIC::INIT_MODIFY_ADVERTISED', _RC)
      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_INITIALIZE, init_modify_advertised2, phase_name='GENERIC::INIT_MODIFY_ADVERTISED2', _RC)

      _RETURN(ESMF_SUCCESS)
   end subroutine setservices