MAPL_Generic - added argument service_items (#4677)

This is to support adding a MAPL_STATEITEM_SERVICE spec

Author: pchakraborty

generic3g/MAPL_Generic.F90

@@ -33,7 +33,7 @@ module mapl3g_Generic
    use mapl3g_HorizontalDimsSpec, only: HorizontalDimsSpec, HORIZONTAL_DIMS_NONE, HORIZONTAL_DIMS_GEOM
    use mapl3g_UngriddedDim, only: UngriddedDim
    use mapl3g_UngriddedDims, only: UngriddedDims
-   use mapl3g_StateItem, only: MAPL_STATEITEM_STATE, MAPL_STATEITEM_FIELDBUNDLE
+   use mapl3g_StateItem, only: MAPL_STATEITEM_STATE, MAPL_STATEITEM_FIELDBUNDLE, MAPL_STATEITEM_SERVICE
    use mapl3g_ESMF_Utilities, only: esmf_state_intent_to_string
    use mapl3g_ESMF_Interfaces, only: MAPL_UserCompGetInternalState, MAPL_UserCompSetInternalState
    use mapl3g_hconfig_get
@@ -56,6 +56,7 @@ module mapl3g_Generic
    use esmf, only: ESMF_State, ESMF_StateItem_Flag, ESMF_TypeKind_Flag
    use esmf, only: operator(==)
    use pflogger, only: logger_t => logger
+   use gftl2_StringVector, only: StringVector
 
    implicit none(type,external)
    private
@@ -107,7 +108,7 @@ module mapl3g_Generic
    public :: MAPL_GridCompTimerStop
 
    ! Spec types
-   public :: MAPL_STATEITEM_STATE, MAPL_STATEITEM_FIELDBUNDLE
+   public :: MAPL_STATEITEM_STATE, MAPL_STATEITEM_FIELDBUNDLE, MAPL_STATEITEM_SERVICE
 
    public :: MAPL_UserCompGetInternalState, MAPL_UserCompSetInternalState
 
@@ -557,6 +558,7 @@ subroutine gridcomp_add_spec( &
         default_value, &
         export_name, &
         has_deferred_aspects, &
+        service_items, &
         rc)
       type(ESMF_GridComp), intent(inout) :: gridcomp
       type(ESMF_StateIntent_Flag), intent(in) :: state_intent
@@ -575,6 +577,7 @@ subroutine gridcomp_add_spec( &
       real, optional, intent(in) :: default_value
       character(*), optional, intent(in) :: export_name
       logical, optional, intent(in) :: has_deferred_aspects
+      type(StringVector), optional, intent(in) :: service_items
       integer, optional, intent(out) :: rc
 
       type(VariableSpec) :: var_spec
@@ -606,6 +609,7 @@ subroutine gridcomp_add_spec( &
            horizontal_dims_spec=horizontal_dims_spec, &
            default_value=default_value, &
            has_deferred_aspects=has_deferred_aspects, &
+           service_items=service_items, &
            restart_mode=restart, &
            _RC)
       call MAPL_GridCompGetOuterMeta(gridcomp, outer_meta, _RC)