MAPL_StateAlarmAdd Subroutine

public subroutine MAPL_StateAlarmAdd(STATE, ALARM, RC)

Arguments

Type IntentOptional Attributes Name
type(MAPL_MetaComp), intent(inout) :: STATE
type(ESMF_Alarm), intent(in) :: ALARM
integer, intent(out), optional :: RC

Calls

proc~~mapl_statealarmadd~~CallsGraph proc~mapl_statealarmadd MAPL_StateAlarmAdd interface~mapl_assert MAPL_Assert proc~mapl_statealarmadd->interface~mapl_assert proc~mapl_return MAPL_Return proc~mapl_statealarmadd->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 MAPL_StateAlarmAdd(STATE,ALARM,RC)

      type (MAPL_MetaComp),        intent(INOUT) :: STATE
      type (ESMF_Alarm),           intent(IN   ) :: ALARM
      integer, optional,           intent(  OUT) :: RC     ! Error code

      character(len=ESMF_MAXSTR), parameter :: IAm = "MAPL_StateAlarmAdd"

      STATE%ALARMLAST = STATE%ALARMLAST + 1
      _ASSERT(STATE%ALARMLAST <= LAST_ALARM,'needs informative message')

      STATE%ALARM(STATE%ALARMLAST) = ALARM

      _RETURN(ESMF_SUCCESS)
   end subroutine MAPL_StateAlarmAdd