setServices Subroutine

subroutine setServices(gridcomp, rc)

Uses

  • proc~~setservices~12~~UsesGraph proc~setservices~12 setServices ESMF ESMF proc~setservices~12->ESMF module~mapl3g_historygridcomp mapl3g_HistoryGridComp proc~setservices~12->module~mapl3g_historygridcomp module~mapl_errorhandlingmod mapl_ErrorHandlingMod proc~setservices~12->module~mapl_errorhandlingmod module~mapl3g_historygridcomp->ESMF module~generic3g Generic3g module~mapl3g_historygridcomp->module~generic3g module~mapl3g_historycollectiongridcomp mapl3g_HistoryCollectionGridComp module~mapl3g_historygridcomp->module~mapl3g_historycollectiongridcomp module~mapl3g_historygridcomp_private mapl3g_HistoryGridComp_private module~mapl3g_historygridcomp->module~mapl3g_historygridcomp_private module~mapl_errorhandling mapl_ErrorHandling module~mapl3g_historygridcomp->module~mapl_errorhandling module~pfio pFIO module~mapl3g_historygridcomp->module~pfio module~pflogger pflogger module~mapl3g_historygridcomp->module~pflogger module~mapl_errorhandlingmod->module~mapl_errorhandling

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: gridcomp
integer, intent(out) :: rc

Calls

proc~~setservices~12~~CallsGraph proc~setservices~12 setServices proc~mapl_return MAPL_Return proc~setservices~12->proc~mapl_return proc~mapl_verify MAPL_Verify proc~setservices~12->proc~mapl_verify proc~setservices~11 setServices proc~setservices~12->proc~setservices~11 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 proc~setservices~11->proc~mapl_return proc~setservices~11->proc~mapl_verify ESMF_HConfigIterLoop ESMF_HConfigIterLoop proc~setservices~11->ESMF_HConfigIterLoop esmf_hconfigasstring esmf_hconfigasstring proc~setservices~11->esmf_hconfigasstring esmf_hconfigcreateat esmf_hconfigcreateat proc~setservices~11->esmf_hconfigcreateat esmf_hconfiggetsize esmf_hconfiggetsize proc~setservices~11->esmf_hconfiggetsize esmf_hconfigisdefined esmf_hconfigisdefined proc~setservices~11->esmf_hconfigisdefined esmf_hconfigiterbegin esmf_hconfigiterbegin proc~setservices~11->esmf_hconfigiterbegin esmf_hconfigiterend esmf_hconfigiterend proc~setservices~11->esmf_hconfigiterend interface~mapl_addchild~2 MAPL_AddChild proc~setservices~11->interface~mapl_addchild~2 interface~mapl_gridcompget MAPL_GridCompGet proc~setservices~11->interface~mapl_gridcompget interface~mapl_gridcompsetentrypoint MAPL_GridCompSetEntryPoint proc~setservices~11->interface~mapl_gridcompsetentrypoint interface~user_setservices user_setservices proc~setservices~11->interface~user_setservices none~warning Logger%warning proc~setservices~11->none~warning proc~make_child_hconfig make_child_hconfig proc~setservices~11->proc~make_child_hconfig proc~make_child_name make_child_name proc~setservices~11->proc~make_child_name proc~make_child_hconfig->proc~mapl_return proc~make_child_hconfig->proc~mapl_verify ESMF_HConfigAdd ESMF_HConfigAdd proc~make_child_hconfig->ESMF_HConfigAdd ESMF_HConfigDestroy ESMF_HConfigDestroy proc~make_child_hconfig->ESMF_HConfigDestroy proc~get_subconfig get_subconfig proc~make_child_hconfig->proc~get_subconfig proc~make_child_name->proc~mapl_return proc~get_subconfig->proc~mapl_return proc~get_subconfig->proc~mapl_verify proc~get_subconfig->esmf_hconfigcreateat proc~get_subconfig->esmf_hconfigisdefined esmf_hconfigismap esmf_hconfigismap proc~get_subconfig->esmf_hconfigismap interface~mapl_assert MAPL_Assert proc~get_subconfig->interface~mapl_assert

Source Code

   subroutine setServices(gridcomp, rc)
      type(ESMF_GridComp) :: gridcomp
      integer, intent(out) :: rc

      type(ESMF_HConfig) :: hconfig, collections_config, child_hconfig
      character(len=:), allocatable :: child_name, collection_name
      type(ESMF_HConfigIter) :: iter, iter_begin, iter_end
      logical :: has_active_collections
      class(logger), pointer :: lgr
      integer :: num_collections, status

      ! Set entry points
      call MAPL_GridCompSetEntryPoint(gridcomp, ESMF_METHOD_INITIALIZE, init, phase_name="GENERIC::INIT_USER", _RC)
      call MAPL_GridCompSetEntryPoint(gridcomp, ESMF_METHOD_RUN, run, phase_name='run', _RC)

      ! Determine collections
      call MAPL_GridCompGet(gridcomp, hconfig=hconfig, _RC)

      has_active_collections = ESMF_HConfigIsDefined(hconfig, keyString='active_collections', _RC)
      if (.not. has_active_collections) then
         call MAPL_GridCompGet(gridcomp,logger=lgr, _RC)
         call lgr%warning("no active collection specified in History")
         _RETURN(_SUCCESS)
      end if

      collections_config = ESMF_HConfigCreateAt(hconfig, keystring='active_collections', _RC)
      num_collections = ESMF_HConfigGetSize(collections_config, _RC)
      _RETURN_UNLESS(num_collections > 0)

      iter_begin = ESMF_HConfigIterBegin(collections_config,_RC)
      iter_end = ESMF_HConfigIterEnd(collections_config, _RC)
      iter = iter_begin

      do while (ESMF_HConfigIterLoop(iter, iter_begin, iter_end, rc=status))
         _VERIFY(status)
         collection_name = ESMF_HConfigAsString(iter, _RC)
         child_hconfig = make_child_hconfig(hconfig, collection_name, _RC)
         child_name = make_child_name(collection_name, _RC)
         call MAPL_AddChild(gridcomp, child_name, user_setservices(collection_setServices), child_hconfig, _RC)
         !call ESMF_HConfigDestroy(child_hconfig, _RC)
         
      end do
      
      _RETURN(_SUCCESS)
   end subroutine setServices