tem_load_adapt Subroutine

public subroutine tem_load_adapt(me, conf)

Load variables, parent scheme and conditions defined in lua file.

Arguments

Type IntentOptional Attributes Name
type(tem_adapt_type), intent(inout) :: me

adapt_type to be filled
type(flu_State), intent(in) :: conf

lua state to read from

Calls

proc~~tem_load_adapt~~CallsGraph proc~tem_load_adapt tem_load_adapt proc~aot_table_open aot_table_open proc~tem_load_adapt->proc~aot_table_open proc~aot_table_close aot_table_close proc~tem_load_adapt->proc~aot_table_close proc~tem_timecontrol_load tem_timeControl_load proc~tem_load_adapt->proc~tem_timecontrol_load proc~tem_timecontrol_load->proc~aot_table_open proc~tem_timecontrol_load->proc~aot_table_close proc~tem_time_never tem_time_never proc~tem_timecontrol_load->proc~tem_time_never proc~tem_time_default_zero tem_time_default_zero proc~tem_timecontrol_load->proc~tem_time_default_zero proc~tem_time_needs_reduce tem_time_needs_reduce proc~tem_timecontrol_load->proc~tem_time_needs_reduce proc~aot_get_val aot_get_val proc~tem_timecontrol_load->proc~aot_get_val proc~tem_time_load tem_time_load proc~tem_timecontrol_load->proc~tem_time_load proc~tem_time_load->proc~aot_table_open proc~tem_time_load->proc~aot_table_close proc~aot_get_val~2 aot_get_val proc~tem_time_load->proc~aot_get_val~2 mpi_wtime mpi_wtime proc~tem_time_load->mpi_wtime

Contents

Source Code

tem_load_adapt

Source Code

  subroutine tem_load_adapt( me, conf )
    ! ---------------------------------------------------------------------------
    !> adapt_type to be filled
    type( tem_adapt_type ), intent(inout) :: me
    !> lua state to read from
    type( flu_state ), intent(in)         :: conf
    ! ---------------------------------------------------------------------------
    integer :: adapt_handle
    ! ---------------------------------------------------------------------------

    ! Open the adapt table
    call aot_table_open( L       = conf,                                       &
      &                  thandle = adapt_handle,                               &
      &                  key     = 'adaptation' )

    if ( adapt_handle /= 0 ) then
      ! get timeControl conditions
      call tem_timeControl_load( me     = me%time,                             &
        &                        conf   = conf,                                &
        &                        parent = adapt_handle )

      me%active = .TRUE.
      write(logUnit(1),"(A)") 'Mesh Adaptation is active!'
    end if
    ! close the adaptation table
    call aot_table_close( L=conf, thandle=adapt_handle )

  end subroutine tem_load_adapt