39 use json_module,
only : json_file
72 procedure, pass(this) :: init_from_attributes => &
85 type(json_file),
intent(inout) :: json
86 class(
case_t),
intent(inout),
target ::case
87 character(len=20) :: fields(1)
88 type(
field_t),
pointer :: u, v, w, lambda2
93 call json%add(
"fields", fields)
95 call this%init_base(json,
case)
96 call this%writer%init(json,
case)
108 type(
field_t),
pointer,
intent(inout) :: u, v, w, lambda2
120 call this%free_base()
128 real(kind=
rp),
intent(in) :: t
129 integer,
intent(in) :: tstep
131 call lambda2op(this%lambda2, this%u, this%v, this%w, this%case%fluid%c_Xh)
Defines a simulation case.
Device abstraction, common interface for various accelerators.
Defines a registry for storing solution fields.
type(field_registry_t), target, public neko_field_registry
Global field registry.
Implements the field_writer_t type.
A simulation component that computes lambda2 The values are stored in the field registry under the na...
subroutine lambda2_compute(this, t, tstep)
Compute the lambda2 field.
subroutine lambda2_init_from_attributes(this, u, v, w, lambda2)
Actual constructor.
subroutine lambda2_init_from_json(this, json, case)
Constructor from json.
subroutine lambda2_free(this)
Destructor.
integer, parameter, public rp
Global precision used in computations.
subroutine, public lambda2op(lambda2, u, v, w, coef)
Compute the Lambda2 field for a given velocity field.
Simulation components are objects that encapsulate functionality that can be fit to a particular comp...
A simulation component that writes a 3d field to a file.
Base abstract class for simulation components.