MAPL_CplGetAlarms Subroutine

public subroutine MAPL_CplGetAlarms(CC, cplAlarms, RC)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CplComp), intent(inout) :: CC
type(ESMF_Alarm), intent(out) :: cplAlarms(:)
integer, intent(out), optional :: RC

Calls

proc~~mapl_cplgetalarms~~CallsGraph proc~mapl_cplgetalarms MAPL_CplGetAlarms ESMF_CplCompGetInternalState ESMF_CplCompGetInternalState proc~mapl_cplgetalarms->ESMF_CplCompGetInternalState interface~mapl_assert MAPL_Assert proc~mapl_cplgetalarms->interface~mapl_assert proc~mapl_return MAPL_Return proc~mapl_cplgetalarms->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_cplgetalarms->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

Source Code

  subroutine MAPL_CplGetAlarms(cc, cplAlarms, rc)
    type (ESMF_CplComp  ),           intent(INOUT) :: CC  
    type (ESMF_Alarm),               intent(  OUT)    :: cplAlarms(:)  
    integer, optional,               intent(  OUT) :: RC

! Locals

    type (MAPL_GenericCplState), pointer :: STATE
    type (MAPL_GenericCplWrap )          :: WRAP
    integer :: status

    ! Retrieve the pointer to the internal state. It comes in a wrapper.
    ! ------------------------------------------------------------------

    call ESMF_CplCompGetInternalState ( CC, WRAP, STATUS )
    _VERIFY(STATUS)

    STATE  =>  WRAP%INTERNAL_STATE

    _ASSERT(size(STATE%TIME_TO_COUPLE) == size(cplAlarms), "Wrong size for cplArray")

    cplAlarms = state%time_to_couple
    
    _RETURN(ESMF_SUCCESS)
  end subroutine MAPL_CplGetAlarms