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_GenericMod::MAPL_InternalStateRetrieve ESMF_GridCompGet ESMF::ESMF_GridCompGet proc~mapl_internalstateretrieve->ESMF_GridCompGet ESMF_UserCompGetInternalState ESMF::ESMF_UserCompGetInternalState proc~mapl_internalstateretrieve->ESMF_UserCompGetInternalState proc~mapl_internalstatecreate MAPL_GenericMod::MAPL_InternalStateCreate proc~mapl_internalstateretrieve->proc~mapl_internalstatecreate proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~mapl_internalstateretrieve->proc~mapl_return proc~mapl_verify MAPL_ErrorHandlingMod::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::ESMF_UserCompSetInternalState proc~mapl_internalstatecreate->ESMF_UserCompSetInternalState none~get_component mapl_ConcreteComposite::ConcreteComposite%get_component proc~mapl_internalstatecreate->none~get_component none~initialize mapl_ConcreteComposite::ConcreteComposite%initialize proc~mapl_internalstatecreate->none~initialize none~set_composite mapl_CompositeComponent::CompositeComponent%set_composite proc~mapl_internalstatecreate->none~set_composite at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::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_GenericMod::MAPL_InternalStateRetrieve proc~mapl_advertiseservice MAPL_GenericMod::MAPL_AdvertiseService proc~mapl_advertiseservice->proc~mapl_internalstateretrieve proc~mapl_childaddattribtoimportspec MAPL_GenericMod::MAPL_ChildAddAttribToImportSpec proc~mapl_childaddattribtoimportspec->proc~mapl_internalstateretrieve proc~mapl_destroystatesave MAPL_GenericMod::MAPL_DestroyStateSave proc~mapl_destroystatesave->proc~mapl_internalstateretrieve proc~mapl_destroystatesave->proc~mapl_destroystatesave proc~mapl_donotdeferexport MAPL_GenericMod::MAPL_DoNotDeferExport proc~mapl_donotdeferexport->proc~mapl_internalstateretrieve proc~mapl_friendlyget MAPL_GenericMod::MAPL_FriendlyGet proc~mapl_friendlyget->proc~mapl_internalstateretrieve proc~mapl_genericfinalize MAPL_GenericMod::MAPL_GenericFinalize proc~mapl_genericfinalize->proc~mapl_internalstateretrieve proc~mapl_genericinitialize MAPL_GenericMod::MAPL_GenericInitialize proc~mapl_genericinitialize->proc~mapl_internalstateretrieve proc~mapl_genericrecord MAPL_GenericMod::MAPL_GenericRecord proc~mapl_genericrecord->proc~mapl_internalstateretrieve proc~mapl_genericrefresh MAPL_GenericMod::MAPL_GenericRefresh proc~mapl_genericrefresh->proc~mapl_internalstateretrieve proc~mapl_genericrefresh->proc~mapl_genericrefresh proc~mapl_genericsetservices MAPL_GenericMod::MAPL_GenericSetServices proc~mapl_genericsetservices->proc~mapl_internalstateretrieve proc~mapl_gridcompsetentrypoint MAPL_GenericMod::MAPL_GridCompSetEntryPoint proc~mapl_genericsetservices->proc~mapl_gridcompsetentrypoint proc~mapl_genericstaterestore MAPL_GenericMod::MAPL_GenericStateRestore proc~mapl_genericstaterestore->proc~mapl_internalstateretrieve proc~mapl_genericstaterestore->proc~mapl_genericstaterestore proc~mapl_genericstatesave MAPL_GenericMod::MAPL_GenericStateSave proc~mapl_genericstatesave->proc~mapl_internalstateretrieve proc~mapl_genericstatesave->proc~mapl_genericstatesave proc~mapl_gridcompsetentrypoint->proc~mapl_internalstateretrieve proc~mapl_requestservice MAPL_GenericMod::MAPL_RequestService proc~mapl_requestservice->proc~mapl_internalstateretrieve proc~mapl_setvarspecforcc MAPL_GenericMod::MAPL_SetVarSpecForCC proc~mapl_setvarspecforcc->proc~mapl_internalstateretrieve proc~mapl_stateprintspeccsv MAPL_GenericMod::MAPL_StatePrintSpecCSV proc~mapl_stateprintspeccsv->proc~mapl_internalstateretrieve proc~mapl_stateprintspeccsv->proc~mapl_stateprintspeccsv proc~run_component_driver comp_testing_driver::run_component_driver proc~run_component_driver->proc~mapl_internalstateretrieve proc~main comp_testing_driver::main proc~main->proc~run_component_driver proc~setservices MAPL_HistoryGridCompMod::SetServices proc~setservices->proc~mapl_genericsetservices proc~setservices->proc~mapl_gridcompsetentrypoint proc~setservices~2 MAPL_ExtDataGridCompMod::SetServices proc~setservices~2->proc~mapl_genericsetservices proc~setservices~2->proc~mapl_gridcompsetentrypoint proc~setservices~4 MAPL_ExtDataGridComp2G::SetServices proc~setservices~4->proc~mapl_genericsetservices proc~setservices~4->proc~mapl_gridcompsetentrypoint proc~setservices~5 MAPL_OrbGridCompMod::SetServices proc~setservices~5->proc~mapl_genericsetservices proc~setservices~5->proc~mapl_gridcompsetentrypoint proc~setservices~7 ExtDataUtRoot_GridCompMod::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