fixes #4721 (#4722)

Co-authored-by: Matt Thompson <matthew.thompson@nasa.gov>

Author: bena-nasa

gridcomps/History3G/HistoryGridComp_private.F90

@@ -115,8 +115,6 @@ subroutine add_stats_gc(gridcomp, child_name, child_hconfig, rc)
       end if
 
       stats_list = ESMF_HConfigCreate(_RC)
-      stats_mapl_section = create_stats_mapl_section(_RC)
-      call ESMF_HConfigAdd(stats_hconfig, stats_mapl_section, addKeyString='mapl', _RC)
       frequency = ESMF_HConfigAsString(time_hconfig, keyString='frequency', _RC)
       var_list = ESMF_HConfigCreateAt(child_hconfig, keyString=VAR_LIST_KEY, _RC)
       iter_begin = ESMF_HConfigIterBegin(var_list,_RC)
@@ -137,16 +135,6 @@ subroutine add_stats_gc(gridcomp, child_name, child_hconfig, rc)
 
    end subroutine add_stats_gc
 
-   function create_stats_mapl_section(rc) result(stats_mapl_section)
-      type(ESMF_HConfig) :: stats_mapl_section
-      integer, optional, intent(out) :: rc
-
-      integer :: status
-
-      stats_mapl_section = ESMF_HConfigCreate(content='{misc: {checkpoint: {import: False, internal: False}, restart: {bootstrap: True, import: False, internal: True}}}', _RC)
-      _RETURN(_SUCCESS)
-   end function create_stats_mapl_section
-      
    function create_stats_entry(name, action, period, ref_datetime, rc) result(stat_item)
        type(ESMF_HConfig) :: stat_item 
        ! Input arguments

gridcomps/StatisticsGridComp/StatisticsGridComp.F90

@@ -18,6 +18,7 @@ module mapl3g_StatisticsGridComp
    use mapl_OS
    use mapl3g_Utilities, only: MAPL_GetCheckpointSubdir
    use mapl3g_SimpleAlarm, only: SimpleAlarm
+   use mapl3g_ComponentSpec, only: ComponentSpec, CheckpointControls
 
    implicit none(type,external)
    private
@@ -41,6 +42,7 @@ subroutine setServices(gridComp, rc)
       type(Statistics), pointer :: stats
       type(esmf_HConfig) :: hconfig, items_hconfig
       type(esmf_HConfigIter) :: iter, b, e
+      type(CheckpointControls) :: restart_controls
 
       call mapl_GridCompSetEntryPoint(gridComp, ESMF_METHOD_INITIALIZE, modify_advertise, phase_name='GENERIC::INIT_MODIFY_ADVERTISED', _RC)
       call mapl_GridCompSetEntryPoint(gridComp, ESMF_METHOD_INITIALIZE, realize, phase_name='GENERIC::INIT_REALIZE', _RC)
@@ -65,6 +67,10 @@ subroutine setServices(gridComp, rc)
 
       call esmf_HConfigdestroy(items_hconfig, _RC)
 
+      restart_controls%bootstrap = .true.
+      restart_controls%internal = .true.
+      call MAPL_GridCompSet(gridcomp, restart_controls=restart_controls, _RC) 
+
       _RETURN(_SUCCESS)
    end subroutine setServices