get_current_thread Function

public function get_current_thread() result(current_thread)

Arguments

None

Return Value integer


Called by

proc~~get_current_thread~~CalledByGraph proc~get_current_thread get_current_thread none~get_export_state MaplGenericComponent%get_export_state none~get_export_state->proc~get_current_thread none~get_gridcomp MaplGenericComponent%get_gridcomp none~get_gridcomp->proc~get_current_thread none~get_import_state MaplGenericComponent%get_import_state none~get_import_state->proc~get_current_thread none~get_internal_state~3 MaplGenericComponent%get_internal_state none~get_internal_state~3->proc~get_current_thread proc~get_grid MaplGenericComponent%get_grid proc~get_grid->proc~get_current_thread none~get_child_export_state MAPL_MetaComp%get_child_export_state none~get_child_export_state->none~get_export_state none~get_child_gridcomp MAPL_MetaComp%get_child_gridcomp none~get_child_gridcomp->none~get_gridcomp none~get_child_import_state MAPL_MetaComp%get_child_import_state none~get_child_import_state->none~get_import_state proc~mapl_friendlyget MAPL_FriendlyGet proc~mapl_friendlyget->none~get_internal_state~3 proc~mapl_genericfinalize MAPL_GenericFinalize proc~mapl_genericfinalize->none~get_internal_state~3 proc~mapl_genericfinalize->none~get_child_export_state proc~mapl_genericfinalize->none~get_child_gridcomp proc~mapl_genericfinalize->none~get_child_import_state proc~mapl_genericinitialize MAPL_GenericInitialize proc~mapl_genericinitialize->none~get_internal_state~3 proc~mapl_genericinitialize->none~get_child_export_state proc~mapl_genericinitialize->none~get_child_gridcomp proc~mapl_genericinitialize->none~get_child_import_state proc~mapl_genericrecord MAPL_GenericRecord proc~mapl_genericrecord->none~get_internal_state~3 proc~mapl_genericrecord->none~get_child_export_state proc~mapl_genericrecord->none~get_child_gridcomp proc~mapl_genericrecord->none~get_child_import_state proc~mapl_genericrefresh MAPL_GenericRefresh proc~mapl_genericrefresh->none~get_internal_state~3 proc~mapl_genericrefresh->none~get_child_export_state proc~mapl_genericrefresh->none~get_child_gridcomp proc~mapl_genericrefresh->none~get_child_import_state proc~mapl_genericrefresh->proc~mapl_genericrefresh proc~mapl_genericstaterestore MAPL_GenericStateRestore proc~mapl_genericstaterestore->none~get_internal_state~3 proc~mapl_genericstaterestore->none~get_child_export_state proc~mapl_genericstaterestore->none~get_child_gridcomp proc~mapl_genericstaterestore->none~get_child_import_state proc~mapl_genericstaterestore->proc~mapl_genericstaterestore proc~mapl_genericstatesave MAPL_GenericStateSave proc~mapl_genericstatesave->none~get_internal_state~3 proc~mapl_genericstatesave->none~get_child_export_state proc~mapl_genericstatesave->none~get_child_gridcomp proc~mapl_genericstatesave->none~get_child_import_state proc~mapl_genericstatesave->proc~mapl_genericstatesave proc~mapl_childaddattribtoimportspec MAPL_ChildAddAttribToImportSpec proc~mapl_childaddattribtoimportspec->none~get_child_gridcomp proc~mapl_destroystatesave MAPL_DestroyStateSave proc~mapl_destroystatesave->none~get_child_gridcomp proc~mapl_disablerecord MAPL_DisableRecord proc~mapl_disablerecord->none~get_child_gridcomp proc~mapl_exchangegridset MAPL_ExchangeGridSet proc~mapl_exchangegridset->none~get_child_gridcomp proc~mapl_gcget MAPL_GCGet proc~mapl_gcget->none~get_child_gridcomp proc~mapl_genericrunchildren MAPL_GenericRunChildren proc~mapl_genericrunchildren->none~get_child_export_state proc~mapl_genericrunchildren->none~get_child_gridcomp proc~mapl_genericrunchildren->none~get_child_import_state proc~mapl_genericruncouplers MAPL_GenericRunCouplers proc~mapl_genericruncouplers->none~get_child_export_state proc~mapl_genericruncouplers->none~get_child_import_state proc~mapl_genericsetservices MAPL_GenericSetServices proc~mapl_genericsetservices->none~get_child_gridcomp proc~mapl_getallexchangegrids MAPL_GetAllExchangeGrids proc~mapl_getallexchangegrids->none~get_child_gridcomp proc~mapl_getchildlocstream MAPL_GetChildLocstream proc~mapl_getchildlocstream->none~get_child_gridcomp proc~mapl_importstateget MAPL_ImportStateGet proc~mapl_importstateget->none~get_child_gridcomp proc~mapl_importstateget->none~get_child_import_state proc~mapl_internalesmfstateget MAPL_InternalESMFStateGet proc~mapl_internalesmfstateget->none~get_child_gridcomp proc~mapl_setstatesave MAPL_SetStateSave proc~mapl_setstatesave->none~get_child_gridcomp proc~mapl_stateprintspeccsv MAPL_StatePrintSpecCSV proc~mapl_stateprintspeccsv->none~get_child_gridcomp proc~run_component_driver run_component_driver proc~run_component_driver->none~get_child_export_state proc~run_component_driver->none~get_child_gridcomp proc~run_component_driver->none~get_child_import_state

Source Code

    integer function get_current_thread() result(current_thread)
        current_thread = 0  ! default if OpenMP is not used
        !$ current_thread = omp_get_thread_num() ! get the actual thread id if OpenMP is used
    end function get_current_thread