StateItem.F90 Source File

module mapl3g_StateItem
   use esmf
   implicit none
   private

   public :: MAPL_STATEITEM_UNKNOWN
   public :: MAPL_STATEITEM_FIELD
   public :: MAPL_STATEITEM_FIELDBUNDLE
   public :: MAPL_STATEITEM_STATE
   public :: MAPL_STATEITEM_SERVICE
   public :: MAPL_STATEITEM_SERVICE_PROVIDER
   public :: MAPL_STATEITEM_SERVICE_SUBSCRIBER
   public :: MAPL_STATEITEM_WILDCARD
   public :: MAPL_STATEITEM_BRACKET

   ! This following must be public for internal MAPL use, but should not be
   ! exported to the public API of MAPL

   type(ESMF_StateItem_Flag), parameter :: &
        MAPL_STATEITEM_UNKNOWN = ESMF_STATEITEM_UNKNOWN, &
        MAPL_STATEITEM_FIELD = ESMF_STATEITEM_FIELD, &
        MAPL_STATEITEM_FIELDBUNDLE = ESMF_STATEITEM_FIELDBUNDLE, &
        MAPL_STATEITEM_STATE = ESMF_STATEITEM_STATE, &
        MAPL_STATEITEM_SERVICE = ESMF_StateItem_Flag(201), &
        MAPL_STATEITEM_SERVICE_PROVIDER = ESMF_StateItem_Flag(202), &
        MAPL_STATEITEM_SERVICE_SUBSCRIBER = ESMF_StateItem_Flag(203), &
        MAPL_STATEITEM_WILDCARD = ESMF_StateItem_Flag(204), &
        MAPL_STATEITEM_BRACKET = ESMF_StateItem_Flag(205)

end module Mapl3g_StateItem