52 type(
field_t),
intent(in) :: brinkman
53 type(
field_t),
pointer :: u, v, w
56 n = fields%fields(1)%f%dof%size()
62 call subcol3(fields%fields(1)%f%x, u%x, brinkman%x, n)
63 call subcol3(fields%fields(2)%f%x, v%x, brinkman%x, n)
64 call subcol3(fields%fields(3)%f%x, w%x, brinkman%x, n)
Implements the cpu kernel for the brinkman_source_term_t type.
subroutine, public brinkman_source_term_compute_cpu(fields, brinkman)
Computes the Brinkman source term on the cpu.
Defines a registry for storing solution fields.
type(field_registry_t), target, public neko_field_registry
Global field registry.
subroutine, public subcol3(a, b, c, n)
Returns .
integer, parameter, public rp
Global precision used in computations.
field_list_t, To be able to group fields together