get_config_attributes Subroutine

subroutine get_config_attributes(config, comp_name, RUN_DT, restart_file, shared_obj, phase, subset, NX, NY, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Config), intent(inout) :: config
character(len=ESMF_MAXSTR), intent(inout) :: comp_name
integer, intent(inout) :: RUN_DT
character(len=ESMF_MAXSTR), intent(inout) :: restart_file
character(len=ESMF_MAXSTR), intent(inout) :: shared_obj
integer, intent(inout) :: phase
logical, intent(inout) :: subset
integer, intent(inout) :: NX
integer, intent(inout) :: NY
integer, intent(out) :: rc

Calls

proc~~get_config_attributes~~CallsGraph proc~get_config_attributes get_config_attributes ESMF_ConfigGetAttribute ESMF_ConfigGetAttribute proc~get_config_attributes->ESMF_ConfigGetAttribute proc~mapl_return MAPL_Return proc~get_config_attributes->proc~mapl_return proc~mapl_verify MAPL_Verify proc~get_config_attributes->proc~mapl_verify 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~~get_config_attributes~~CalledByGraph proc~get_config_attributes get_config_attributes proc~run_component_driver run_component_driver proc~run_component_driver->proc~get_config_attributes proc~main~2 main proc~main~2->proc~run_component_driver program~comp_testing_driver comp_testing_driver program~comp_testing_driver->proc~main~2

Source Code

  subroutine get_config_attributes(config, comp_name, RUN_DT, restart_file, shared_obj, phase, subset, NX, NY, rc)
    type(ESMF_Config), intent(inout) :: config
    character(len=ESMF_MAXSTR), intent(inout) :: comp_name, shared_obj, restart_file
    integer, intent(inout) :: NX, NY, phase, RUN_DT
    logical, intent(inout) :: subset
    integer, intent(out) :: rc
    integer :: status

    call ESMF_ConfigGetAttribute(config, value=comp_name, label="COMPONENT_TO_RECORD:", _RC)
    call ESMF_ConfigGetAttribute(config, value=RUN_DT, label="RUN_DT:", _RC)
    call ESMF_ConfigGetAttribute(config, value=restart_file, label="RESTART_FILE:", _RC)
    call ESMF_ConfigGetAttribute(config, value=shared_obj, label = "LIBRARY_FILE:", _RC)
    call ESMF_ConfigGetAttribute(config, value=phase, label="PHASE:", default=1, _RC)
    call ESMF_ConfigGetAttribute(config, value=subset, label="SUBSET:", default=.false., _RC)
    call ESMF_ConfigGetAttribute(config, value=NX, label = "NX:", _RC)
    call ESMF_ConfigGetAttribute(config, value=NY, label = "NX:", _RC)

    _RETURN(_SUCCESS)
  end subroutine get_config_attributes