load_config Subroutine

  1. tem_varSys_opVar_test.f90
  2. tem_varSys_opVar_test
  3. load_config

subroutine load_config(conf, chunk, stfun_linkedList, tracking, newVar)

load variables defined in sysConf

Arguments

Type IntentOptional AttributesName
type(flu_state) :: conf
character(len=*), intent(in) :: chunk
type(tem_st_fun_linkedList_type), intent(out) :: stfun_linkedList
type(tracking_type), intent(out) :: tracking
type(tem_variable_type), intent(out), allocatable:: newVar(:)

Calls

proc~~load_config~~CallsGraph proc~load_config load_config proc~aot_table_open aot_table_open proc~load_config->proc~aot_table_open proc~aot_table_length aot_table_length proc~load_config->proc~aot_table_length proc~open_config_chunk open_config_chunk proc~load_config->proc~open_config_chunk proc~aot_table_close aot_table_close proc~load_config->proc~aot_table_close interface~tem_variable_load tem_variable_load proc~load_config->interface~tem_variable_load interface~aot_get_val aot_get_val proc~load_config->interface~aot_get_val proc~tem_variable_load_single tem_variable_load_single interface~tem_variable_load->proc~tem_variable_load_single proc~tem_variable_load_vector tem_variable_load_vector interface~tem_variable_load->proc~tem_variable_load_vector proc~tem_variable_load_single->proc~aot_table_open proc~tem_variable_load_single->proc~aot_table_close proc~tem_variable_load_single->interface~aot_get_val interface~tem_load_spacetime tem_load_spacetime proc~tem_variable_load_single->interface~tem_load_spacetime proc~upper_to_lower upper_to_lower proc~tem_variable_load_single->proc~upper_to_lower proc~tem_abort tem_abort proc~tem_variable_load_single->proc~tem_abort proc~load_variable_operation load_variable_operation proc~tem_variable_load_single->proc~load_variable_operation proc~tem_horizontalspacer tem_horizontalSpacer proc~tem_variable_load_single->proc~tem_horizontalspacer proc~tem_variable_load_vector->proc~aot_table_open proc~tem_variable_load_vector->proc~aot_table_length proc~tem_variable_load_vector->proc~aot_table_close proc~tem_variable_load_vector->proc~tem_variable_load_single proc~tem_variable_load_vector->proc~tem_horizontalspacer proc~tem_load_spacetime_single tem_load_spacetime_single interface~tem_load_spacetime->proc~tem_load_spacetime_single proc~tem_load_spacetime_table tem_load_spacetime_table interface~tem_load_spacetime->proc~tem_load_spacetime_table mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~load_variable_operation->proc~aot_table_open proc~load_variable_operation->proc~aot_table_close proc~load_variable_operation->interface~aot_get_val proc~load_variable_operation->proc~tem_abort proc~tem_reduction_transient_load tem_reduction_transient_load proc~load_variable_operation->proc~tem_reduction_transient_load

Called by

proc~~load_config~~CalledByGraph proc~load_config load_config program~tem_varsys_opvar_test tem_varSys_opVar_test program~tem_varsys_opvar_test->proc~load_config

Contents

Source Code

load_config

Source Code

  subroutine load_config( conf, chunk, stfun_linkedList, tracking, newVar )
    ! -------------------------------------------------------------------------!
    type(flu_state) :: conf
    character(len=*), intent(in) :: chunk
    type(tem_st_fun_linkedList_type), intent(out) :: stfun_linkedList
    type(tracking_type), intent(out) :: tracking
    type(tem_variable_type), allocatable, intent(out) :: newVar(:)
    ! -------------------------------------------------------------------------!
    integer :: nVars, iVar, thandle, iError
    integer, allocatable :: vError(:)
    ! -------------------------------------------------------------------------!
    call open_config_chunk(L=conf, chunk=trim(chunk))

    call tem_variable_load( me   = newVar,     &
      &                     conf = conf,       &
      &                     key  = 'variable', &
      &                     vError  = vError   )

    call aot_table_open( L       = conf,            &
      &                  thandle = thandle,         &
      &                  key     = 'track_variable' )
    nVars = aot_table_length( L = conf, thandle = thandle )
    tracking%nRequestedVars = nVars
    allocate(tracking%variable(nVars))
    write(*,*) 'track_variables :'
    do iVar = 1, nVars
      ! Get the names of the variable
      call aot_get_val( L       = conf,                    &
        &               thandle = thandle,                 &
        &               val     = tracking%variable(iVar), &
        &               ErrCode = iError,                  &
        &               pos     = iVar                     )
      write(*,*) trim(tracking%variable(iVar))
    end do
    write(*,*)
    call aot_table_close( L = conf, thandle = thandle)

  end subroutine load_config