tem_from_file_temporal_type Derived Type

type, private :: tem_from_file_temporal_type

contains information for loading inlet velocities from a datafile The data has to be stored as tuples (time,velocity) columnwise. t1 v1 t2 v2 ... tn vn and v1 .eq. vn has to be fullfilled. The data has to be provided in the format '(e15.8)'


Inherits

type~~tem_from_file_temporal_type~~InheritsGraph type~tem_from_file_temporal_type tem_from_file_temporal_type type~grw_real2darray_type grw_real2darray_type type~tem_from_file_temporal_type->type~grw_real2darray_type signal

Inherited by

type~~tem_from_file_temporal_type~~InheritedByGraph type~tem_from_file_temporal_type tem_from_file_temporal_type type~tem_temporal_type tem_temporal_type type~tem_temporal_type->type~tem_from_file_temporal_type from_file type~tem_spacetime_fun_type tem_spacetime_fun_type type~tem_spacetime_fun_type->type~tem_temporal_type temporal type~tem_st_fun_listelem_type tem_st_fun_listElem_type type~tem_st_fun_listelem_type->type~tem_spacetime_fun_type val type~tem_st_fun_listelem_type->type~tem_st_fun_listelem_type next type~tem_variable_type tem_variable_type type~tem_variable_type->type~tem_spacetime_fun_type st_fun type~tem_st_fun_linkedlist_type tem_st_fun_linkedList_type type~tem_st_fun_linkedlist_type->type~tem_st_fun_listelem_type head

Components

Type Visibility Attributes Name Initial
character(len=PathLen), public :: datafile

filename of the data
character(len=LabelLen), public :: intp

interpolate linearly between the data
type(grw_real2darray_type), public :: signal

growing array of tuples (time, velocity)
logical, public :: ramp = .false.

ramping active?
real(kind=rk), public :: rampVal

ramping value at the end of rampT
real(kind=rk), public :: rampT

ramping time
real(kind=rk), public :: fac

factor to multiply data with
logical, public :: periodic

is the data periodic?

Source Code

  type tem_from_file_temporal_type
    !> filename of the data
    character(len=PathLen) :: datafile
    !> interpolate linearly between the data
    character(len=LabelLen) :: intp
    !> growing array of tuples (time, velocity)
    type( grw_real2darray_type ) :: signal
    !> ramping active?
    logical :: ramp = .false.
    !> ramping value at the end of rampT
    real(kind=rk) :: rampVal
    !> ramping time
    real(kind=rk) :: rampT
    !> factor to multiply data with
    real(kind=rk) :: fac
    !> is the data periodic?
    logical :: periodic
  end type tem_from_file_temporal_type