setservices Subroutine

public subroutine setservices(gc, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: gc
integer, optional :: rc

Calls

proc~~setservices~~CallsGraph proc~setservices setservices ESMF_ConfigGetAttribute ESMF_ConfigGetAttribute proc~setservices->ESMF_ConfigGetAttribute ESMF_GridCompGet ESMF_GridCompGet proc~setservices->ESMF_GridCompGet interface~mapl_getobjectfromgc MAPL_GetObjectFromGC proc~setservices->interface~mapl_getobjectfromgc none~set_use_threads MaplGenericComponent%set_use_threads proc~setservices->none~set_use_threads proc~mapl_genericsetservices MAPL_GenericSetServices proc~setservices->proc~mapl_genericsetservices proc~mapl_gridcompsetentrypoint MAPL_GridCompSetEntryPoint proc~setservices->proc~mapl_gridcompsetentrypoint proc~mapl_return MAPL_Return proc~setservices->proc~mapl_return proc~mapl_verify MAPL_Verify proc~setservices->proc~mapl_verify

Source Code

  subroutine setservices(gc,rc)

     type(ESMF_GridComp), intent(inout)  :: gc
     integer, optional :: rc

     type (MAPL_MetaComp),       pointer    :: MAPL
     type (ESMF_Config) :: cf
     integer :: status
     logical :: use_threads
     integer :: num_threads

     call MAPL_GetObjectFromGC (gc, MAPL, _RC)
     call ESMF_GridCompGet(gc, config=cf, _RC)
     call ESMF_ConfigGetAttribute(cf, use_threads, label='use_threads:', default=.FALSE., _RC)
     call MAPL%set_use_threads(use_threads)

     call MAPL_GridCompSetEntryPoint ( gc, ESMF_METHOD_INITIALIZE,  initialize, _RC)
     call MAPL_GridCompSetEntryPoint ( gc, ESMF_METHOD_RUN,  run, _RC)
     call MAPL_GenericSetServices(gc, _RC)

     _RETURN(_SUCCESS)

  end subroutine setservices