MAPL_InternalStateRetrieve Subroutine

public subroutine MAPL_InternalStateRetrieve(GC, MAPLOBJ, RC)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: GC
type(MAPL_MetaComp), pointer :: MAPLOBJ
integer, intent(out), optional :: RC

Calls

proc~~mapl_internalstateretrieve~~CallsGraph proc~mapl_internalstateretrieve MAPL_InternalStateRetrieve ESMF_GridCompGet ESMF_GridCompGet proc~mapl_internalstateretrieve->ESMF_GridCompGet ESMF_UserCompGetInternalState ESMF_UserCompGetInternalState proc~mapl_internalstateretrieve->ESMF_UserCompGetInternalState proc~mapl_internalstatecreate MAPL_InternalStateCreate proc~mapl_internalstateretrieve->proc~mapl_internalstatecreate proc~mapl_return MAPL_Return proc~mapl_internalstateretrieve->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_internalstateretrieve->proc~mapl_verify proc~mapl_internalstatecreate->ESMF_GridCompGet proc~mapl_internalstatecreate->proc~mapl_return proc~mapl_internalstatecreate->proc~mapl_verify ESMF_UserCompSetInternalState ESMF_UserCompSetInternalState proc~mapl_internalstatecreate->ESMF_UserCompSetInternalState none~get_component~2 ConcreteComposite%get_component proc~mapl_internalstatecreate->none~get_component~2 none~initialize~15 ConcreteComposite%initialize proc~mapl_internalstatecreate->none~initialize~15 none~set_composite~2 CompositeComponent%set_composite proc~mapl_internalstatecreate->none~set_composite~2 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

Called by

proc~~mapl_internalstateretrieve~~CalledByGraph proc~mapl_internalstateretrieve MAPL_InternalStateRetrieve proc~mapl_advertiseservice MAPL_AdvertiseService proc~mapl_advertiseservice->proc~mapl_internalstateretrieve proc~mapl_childaddattribtoimportspec MAPL_ChildAddAttribToImportSpec proc~mapl_childaddattribtoimportspec->proc~mapl_internalstateretrieve proc~mapl_destroystatesave MAPL_DestroyStateSave proc~mapl_destroystatesave->proc~mapl_internalstateretrieve proc~mapl_destroystatesave->proc~mapl_destroystatesave proc~mapl_donotdeferexport MAPL_DoNotDeferExport proc~mapl_donotdeferexport->proc~mapl_internalstateretrieve proc~mapl_friendlyget MAPL_FriendlyGet proc~mapl_friendlyget->proc~mapl_internalstateretrieve proc~mapl_genericfinalize MAPL_GenericFinalize proc~mapl_genericfinalize->proc~mapl_internalstateretrieve proc~mapl_genericinitialize MAPL_GenericInitialize proc~mapl_genericinitialize->proc~mapl_internalstateretrieve proc~mapl_genericrecord MAPL_GenericRecord proc~mapl_genericrecord->proc~mapl_internalstateretrieve proc~mapl_genericrefresh MAPL_GenericRefresh proc~mapl_genericrefresh->proc~mapl_internalstateretrieve proc~mapl_genericrefresh->proc~mapl_genericrefresh proc~mapl_genericsetservices MAPL_GenericSetServices proc~mapl_genericsetservices->proc~mapl_internalstateretrieve proc~mapl_gridcompsetentrypoint MAPL_GridCompSetEntryPoint proc~mapl_genericsetservices->proc~mapl_gridcompsetentrypoint proc~mapl_genericstaterestore MAPL_GenericStateRestore proc~mapl_genericstaterestore->proc~mapl_internalstateretrieve proc~mapl_genericstaterestore->proc~mapl_genericstaterestore proc~mapl_genericstatesave MAPL_GenericStateSave proc~mapl_genericstatesave->proc~mapl_internalstateretrieve proc~mapl_genericstatesave->proc~mapl_genericstatesave proc~mapl_gridcompsetentrypoint->proc~mapl_internalstateretrieve proc~mapl_requestservice MAPL_RequestService proc~mapl_requestservice->proc~mapl_internalstateretrieve proc~mapl_setvarspecforcc MAPL_SetVarSpecForCC proc~mapl_setvarspecforcc->proc~mapl_internalstateretrieve proc~mapl_stateprintspeccsv MAPL_StatePrintSpecCSV proc~mapl_stateprintspeccsv->proc~mapl_internalstateretrieve proc~mapl_stateprintspeccsv->proc~mapl_stateprintspeccsv proc~run_component_driver run_component_driver proc~run_component_driver->proc~mapl_internalstateretrieve proc~main main proc~main->proc~run_component_driver proc~setservices~2 SetServices proc~setservices~2->proc~mapl_genericsetservices proc~setservices~2->proc~mapl_gridcompsetentrypoint proc~setservices~4 SetServices proc~setservices~4->proc~mapl_genericsetservices proc~setservices~4->proc~mapl_gridcompsetentrypoint proc~setservices~5 SetServices proc~setservices~5->proc~mapl_genericsetservices proc~setservices~5->proc~mapl_gridcompsetentrypoint proc~setservices~6 SetServices proc~setservices~6->proc~mapl_genericsetservices proc~setservices~6->proc~mapl_gridcompsetentrypoint proc~setservices~7 SetServices proc~setservices~7->proc~mapl_genericsetservices proc~setservices~7->proc~mapl_gridcompsetentrypoint program~comp_testing_driver comp_testing_driver program~comp_testing_driver->proc~main

Source Code

   subroutine MAPL_InternalStateRetrieve(GC, MAPLOBJ, RC)

      ! !ARGUMENTS:
      !
      type(ESMF_GridComp),                  intent(INOUT) :: GC ! Gridded component
      type (MAPL_MetaComp),                       pointer :: MAPLOBJ
      integer,                    optional, intent(  OUT) :: RC ! Return code
      !EOPI

      ! ErrLog Variables

      integer                           :: status

      ! Local variables
      ! ---------------

      call MAPL_InternalStateGet( GC, MAPLOBJ, RC=status)
      if (status /= ESMF_SUCCESS) then
         call MAPL_InternalStateCreate( GC, MAPLOBJ, RC=status)
         _VERIFY(status)
      end if

      _RETURN(ESMF_SUCCESS)

   end subroutine MAPL_InternalStateRetrieve