setservices Subroutine

public subroutine setservices(gc, rc)

Arguments

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

$ integer :: status

$ call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_INITIALIZE, initialize, _RC) $ call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_RUN, run, _RC) $ call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_FINALIZE, finalize, _RC) $ call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_READRESTART, read_restart, _RC) $ call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_WRITERESTART, write_restart, _RC)

Calls

proc~~setservices~~CallsGraph proc~setservices setservices proc~mapl_return MAPL_Return proc~setservices->proc~mapl_return 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

Source Code

   subroutine setservices(gc, rc)
      type(ESMF_GridComp) :: gc
      integer, intent(out) :: rc

!!$      integer :: status
#undef _RC      
!!$      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_INITIALIZE,   initialize,    _RC)
!!$      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_RUN,          run,           _RC)
!!$      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_FINALIZE,     finalize,      _RC)
!!$      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_READRESTART,  read_restart,  _RC)
!!$      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_WRITERESTART, write_restart, _RC)
      

      _RETURN(ESMF_SUCCESS)
   end subroutine setservices