65 type(
field_t),
pointer,
intent(in) :: f_x, f_y, f_z
66 type(
coef_t),
target,
intent(inout) :: coef
67 type(
user_t),
target,
intent(in) :: user
72 call rhs_fields%init(3)
73 call rhs_fields%assign(1, f_x)
74 call rhs_fields%assign(2, f_y)
75 call rhs_fields%assign(3, f_z)
77 call this%init_base(rhs_fields, coef, user)
88 class(
source_term_t),
allocatable,
intent(inout) :: source_term
90 type(
coef_t),
intent(inout) :: coef
91 character(len=*) :: type
92 type(
user_t),
intent(in) :: user
98 call source_term%init_from_components(rhs_fields, coef,
type, &
99 user%fluid_user_f_vector, &
Implements the fluid_source_term_t type.
subroutine fluid_init_user_source(source_term, rhs_fields, coef, type, user)
Initialize the user source term.
subroutine fluid_source_term_init(this, f_x, f_y, f_z, coef, user)
Constructor.
Implements the fluid_user_source_term_t type.
Implements the source_term_handler_t type.
Implements the source_term_t type and a wrapper source_term_wrapper_t.
Interfaces for user interaction with NEKO.
Coefficients defined on a given (mesh, ) tuple. Arrays use indices (i,j,k,e): element e,...
field_list_t, To be able to group fields together
Wrapper contaning and executing the fluid source terms.
A source-term for the fluid, with procedure pointers pointing to the actual implementation in the use...
Base abstract type for source terms.
Abstract class for handling source terms.