40 use json_module,
only : json_file
58 procedure, pass(this) :: init_from_components => &
72 class(
vreman_t),
intent(inout) :: this
74 type(
coef_t),
intent(in) :: coef
75 type(json_file),
intent(inout) :: json
76 character(len=:),
allocatable :: nut_name
78 character(len=:),
allocatable :: delta_type
79 character(len=LOG_SIZE) :: log_buf
87 write(log_buf,
'(A)')
'Model : Vreman'
89 write(log_buf,
'(A, A)')
'Delta evaluation : ', delta_type
91 write(log_buf,
'(A, E15.7)')
'c : ', c
106 class(
vreman_t),
intent(inout) :: this
107 type(
dofmap_t),
intent(in) :: dofmap
108 type(
coef_t),
intent(in) :: coef
110 character(len=*),
intent(in) :: nut_name
111 character(len=*),
intent(in) :: delta_type
115 call this%init_base(
dofmap, coef, nut_name, delta_type)
122 class(
vreman_t),
intent(inout) :: this
124 call this%free_base()
131 class(
vreman_t),
intent(inout) :: this
132 real(kind=
rp),
intent(in) :: t
133 integer,
intent(in) :: tstep
Retrieves a parameter by name or assigns a provided default value. In the latter case also adds the m...
Defines a mapping of the degrees of freedom.
Utilities for retrieving parameters from the case files.
type(log_t), public neko_log
Global log stream.
integer, parameter, public log_size
integer, parameter neko_bcknd_device
integer, parameter, public rp
Global precision used in computations.
Implements the CPU kernel for the vreman_t type.
subroutine, public vreman_compute_cpu(t, tstep, coef, nut, delta, c)
Compute eddy viscosity on the CPU.
Implements the device kernel for the vreman_t type.
subroutine, public vreman_compute_device(t, tstep, coef, nut, delta, c)
Compute eddy viscosity on the device.
subroutine vreman_init(this, dofmap, coef, json)
Constructor.
subroutine vreman_free(this)
Destructor for the les_model_t (base) class.
subroutine vreman_compute(this, t, tstep)
Compute eddy viscosity.
subroutine vreman_init_from_components(this, dofmap, coef, c, nut_name, delta_type)
Constructor from components.
Coefficients defined on a given (mesh, ) tuple. Arrays use indices (i,j,k,e): element e,...
Base abstract type for LES models based on the Boussinesq approximation.
Implements the Vreman LES model.