get_cap_parameters_from_gc Function

public function get_cap_parameters_from_gc(gc, rc) result(cap_params)

Arguments

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

Return Value type(cap_parameters)


Calls

proc~~get_cap_parameters_from_gc~~CallsGraph proc~get_cap_parameters_from_gc get_cap_parameters_from_gc ESMF_LogFoundError ESMF_LogFoundError proc~get_cap_parameters_from_gc->ESMF_LogFoundError ESMF_UserCompGetInternalState ESMF_UserCompGetInternalState proc~get_cap_parameters_from_gc->ESMF_UserCompGetInternalState proc~mapl_return MAPL_Return proc~get_cap_parameters_from_gc->proc~mapl_return 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

Source Code

    function get_cap_parameters_from_gc(gc, rc) result(cap_params)
        type(cap_parameters)               :: cap_params
        type(ESMF_GridComp), intent(inout) :: gc
        integer,             intent(  out) :: rc

        type(cap_parameters_wrapper) :: parameters_wrapper

        call ESMF_UserCompGetInternalState(gc, internal_parameters_name, parameters_wrapper, rc)
        VERIFY_NUOPC_(rc)

        cap_params = parameters_wrapper%ptr

        _RETURN(_SUCCESS)
    end function get_cap_parameters_from_gc