init_wrapper Subroutine

public subroutine init_wrapper(wrapper_gc, name, cap_rc_file, root_set_services, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: wrapper_gc
character(len=*), intent(in) :: name
character(len=*), intent(in) :: cap_rc_file
procedure(set_services_interface) :: root_set_services
integer, intent(out) :: rc

Calls

proc~~init_wrapper~~CallsGraph proc~init_wrapper init_wrapper ESMF_LogFoundError ESMF_LogFoundError proc~init_wrapper->ESMF_LogFoundError ESMF_UserCompSetInternalState ESMF_UserCompSetInternalState proc~init_wrapper->ESMF_UserCompSetInternalState proc~mapl_return MAPL_Return proc~init_wrapper->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

    subroutine init_wrapper(wrapper_gc, name, cap_rc_file, root_set_services, rc)
        type(ESMF_GridComp), intent(inout) :: wrapper_gc
        character(*),        intent(in   ) :: name, cap_rc_file
        procedure(set_services_interface)  :: root_set_services
        integer, intent(out)               :: rc

        type(cap_parameters_wrapper) :: wrapper

        allocate(wrapper%ptr)
        wrapper%ptr = cap_parameters(name, cap_rc_file, root_set_services)

        call ESMF_UserCompSetInternalState(wrapper_gc, internal_parameters_name, wrapper, rc)
        VERIFY_NUOPC_(rc)

        _RETURN(_SUCCESS)
    end subroutine init_wrapper