tem_load_cylindricalWave Subroutine

  subroutine tem_load_cylindricalWave(conf, thandle, me)
    ! ---------------------------------------------------------------------------
    !> lua state type
    type(flu_State) :: conf
    !> aotus parent handle
    integer, intent(in) :: thandle
    type(tem_cylindricalWave_type), intent(out) :: me
    ! ---------------------------------------------------------------------------
    integer :: iError
    ! ---------------------------------------------------------------------------

    write(logUnit(1),*) 'Loading predefined function for cylindrical wave: '

    ! radius
    call aot_get_val( L       = conf,        &
      &               thandle = thandle,     &
      &               key     = 'radius',    &
      &               val     = me%radius,   &
      &               ErrCode = iError )
    if(iError.ne.0) then
      write(logUnit(1),*) 'ERROR in tem_load_cylindricalWave: not able '
      write(logUnit(1),*) 'to read radius for cylin. wave form config file.'
      call tem_abort()
    end if
    write(logUnit(1),*) ' * radius =', me%radius

    ! order
    call aot_get_val( L       = conf,     &
      &               thandle = thandle,  &
      &               key     = 'order',  &
      &               val     = me%order, &
      &               ErrCode = iError    )
    if(iError.ne.0) then
      write(logUnit(1),*) 'ERROR in tem_load_cylindricalWave: not able '
      write(logUnit(1),*) 'to read order for cylin. wave form config file.'
      call tem_abort()
    end if
    write(logUnit(1),*) ' * order =', me%order

    ! radial constant
    call aot_get_val( L       = conf,              &
      &               thandle = thandle,           &
      &               key     = 'radialconstant',  &
      &               val     = me%radialconstant, &
      &               ErrCode = iError             )
    if(iError.ne.0) then
      write(logUnit(1),*) 'ERROR in tem_load_cylindricalWave: not able '
      write(logUnit(1),*) 'to read radialconstant for cylin. '// &
        &                 'wave form config file.'
      call tem_abort()
    end if
    write(logUnit(1),*) ' * radialconstant =', me%radialconstant


  end subroutine tem_load_cylindricalWave