tem_load_heaviside_gibbs Subroutine

public subroutine tem_load_heaviside_gibbs(conf, thandle, me)

This subroutine loads the definition of a spatial Heaviside function including Gibbs oscillations occuring for a high order approximation.

Arguments

Type IntentOptional Attributes Name
type(flu_State) :: conf

lua state type
integer, intent(in) :: thandle

aotus parent handle
type(tem_heaviside_gibbs_type), intent(out) :: me

Heaviside function data

Calls

proc~~tem_load_heaviside_gibbs~~CallsGraph proc~tem_load_heaviside_gibbs tem_load_heaviside_gibbs aot_get_val aot_get_val proc~tem_load_heaviside_gibbs->aot_get_val

Called by

proc~~tem_load_heaviside_gibbs~~CalledByGraph proc~tem_load_heaviside_gibbs tem_load_heaviside_gibbs proc~load_spatial_predefined load_spatial_predefined proc~load_spatial_predefined->proc~tem_load_heaviside_gibbs proc~tem_load_spatial tem_load_spatial proc~tem_load_spatial->proc~load_spatial_predefined proc~load_spacetime_predefined load_spacetime_predefined proc~load_spacetime_predefined->proc~tem_load_spatial proc~tem_load_ic tem_load_ic proc~tem_load_ic->proc~tem_load_spatial proc~tem_load_spacetime_single tem_load_spacetime_single proc~tem_load_spacetime_single->proc~load_spacetime_predefined

Source Code

  subroutine tem_load_heaviside_gibbs( conf, thandle, me )
    ! ---------------------------------------------------------------------------
    !> Heaviside function data
    type(tem_heaviside_gibbs_type),intent(out) :: me
    !> lua state type
    type(flu_State) :: conf
    !> aotus parent handle
    integer, intent(in) :: thandle
    ! ---------------------------------------------------------------------------
    integer :: iError
    ! ---------------------------------------------------------------------------

    ! Center
    call aot_get_val( L       = conf,                                          &
      &               thandle = thandle,                                       &
      &               key     = 'center',                                      &
      &               val     = me%center,                                     &
      &               ErrCode = iError )
    ! Order
    call aot_get_val( L       = conf,                                          &
      &               thandle = thandle,                                       &
      &               key     = 'order',                                       &
      &               val     = me%order,                                      &
      &               ErrCode = iError )
    ! Left value
    call aot_get_val( L       = conf,                                          &
      &               thandle = thandle,                                       &
      &               key     = 'left',                                        &
      &               val     = me%left,                                       &
      &               ErrCode = iError )
    ! Right value
    call aot_get_val( L       = conf,                                          &
      &               thandle = thandle,                                       &
      &               key     = 'right',                                       &
      &               val     = me%right,                                      &
      &               ErrCode = iError )

    write(logUnit(1),*) ' Data for Heaviside function (including Gibbs'//      &
      &                'oscillations):'
    write(logUnit(1),*) ' * center =', me%center
    write(logUnit(1),*) ' * order  =', me%order
    write(logUnit(1),*) ' * left   =', me%left
    write(logUnit(1),*) ' * right  =', me%right

  end subroutine tem_load_heaviside_gibbs