SetServices Subroutine

public subroutine SetServices(gridcomp, rc)

Arguments

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

Calls

proc~~setservices~5~~CallsGraph proc~setservices~5 SetServices interface~mapl_gridcompsetentrypoint MAPL_GridCompSetEntryPoint proc~setservices~5->interface~mapl_gridcompsetentrypoint proc~mapl_return MAPL_Return proc~setservices~5->proc~mapl_return proc~mapl_verify MAPL_Verify proc~setservices~5->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~5~~CalledByGraph proc~setservices~5 SetServices proc~setservices~6 SetServices proc~setservices~6->proc~setservices~5

Source Code

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

      integer :: status

      ! Set entry points
      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)

      _RETURN(_SUCCESS)
   end subroutine setServices