MAPL_ConnectService Subroutine

public subroutine MAPL_ConnectService(GC, PROVIDER, REQUESTER, SERVICE, RC)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: GC
character(len=*), intent(in) :: PROVIDER
character(len=*), intent(in) :: REQUESTER
character(len=*), intent(in) :: SERVICE
integer, intent(out), optional :: RC

Calls

proc~~mapl_connectservice~~CallsGraph proc~mapl_connectservice MAPL_ConnectService interface~mapl_getobjectfromgc MAPL_GetObjectFromGC proc~mapl_connectservice->interface~mapl_getobjectfromgc none~push_back~57 serviceConnectionItemVector%push_back proc~mapl_connectservice->none~push_back~57 proc~mapl_return MAPL_Return proc~mapl_connectservice->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_connectservice->proc~mapl_verify none~capacity~337 serviceConnectionItemVector%capacity none~push_back~57->none~capacity~337 none~resize~114 serviceConnectionItemVector%resize none~push_back~57->none~resize~114 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 none~resize_32~54 serviceConnectionItemVector%resize_32 none~resize~114->none~resize_32~54 none~resize_32~54->none~resize~114

Source Code

   subroutine MAPL_ConnectService( GC, PROVIDER, REQUESTER, SERVICE, RC)

      !ARGUMENTS:
      type(ESMF_GridComp),            intent(INOUT) :: GC ! Gridded component
      character (len=*),              intent(IN   ) :: PROVIDER
      character (len=*),              intent(IN   ) :: REQUESTER
      character (len=*),              intent(IN   ) :: SERVICE
      integer,              optional, intent(  OUT) :: RC     ! Error code:
      !EOPI

      character(len=ESMF_MAXSTR), parameter :: IAm="MAPL_ServiceAddConnection"
      integer                               :: status

      type (MAPL_Connectivity), pointer     :: conn

      call MAPL_ConnectivityGet(gc, connectivityPtr=conn, RC=status)
      _VERIFY(status)

      call conn%ServiceConnectionItems%push_back( &
           ServiceConnectionType( &
           provider_name=provider, &
           requester_name=requester, &
           service_name=service))

      _RETURN(ESMF_SUCCESS)

   end subroutine MAPL_ConnectService