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