setServices Subroutine

subroutine setServices(gc, rc)

Uses

  • proc~~setservices~14~~UsesGraph proc~setservices~14 setServices ESMF ESMF proc~setservices~14->ESMF module~mapl_errorhandling mapl_ErrorHandling proc~setservices~14->module~mapl_errorhandling module~simpleleafgridcomp SimpleLeafGridComp proc~setservices~14->module~simpleleafgridcomp module~mapl_throwmod MAPL_ThrowMod module~mapl_errorhandling->module~mapl_throwmod mpi mpi module~mapl_errorhandling->mpi module~simpleleafgridcomp->ESMF module~simpleleafgridcomp->module~mapl_errorhandling

Arguments

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

Calls

proc~~setservices~14~~CallsGraph proc~setservices~14 setServices proc~mapl_return MAPL_Return proc~setservices~14->proc~mapl_return proc~mapl_verify MAPL_Verify proc~setservices~14->proc~mapl_verify proc~setservices~5 setservices proc~setservices~14->proc~setservices~5 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~5->proc~mapl_return proc~setservices~5->proc~mapl_verify interface~mapl_gridcompsetentrypoint MAPL_GridCompSetEntryPoint proc~setservices~5->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_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)
      
      _RETURN(ESMF_SUCCESS)
   end subroutine setservices