49 procedure(
prs_res),
nopass,
deferred :: compute
55 procedure(
vel_res),
nopass,
deferred :: compute
59 subroutine prs_res(p, p_res, u, v, w, u_e, v_e, w_e, f_x, f_y, f_z, c_xh,&
60 gs_Xh, bc_prs_surface, bc_sym_surface, Ax, bd, dt, mu, rho)
67 type(
field_t),
intent(inout) :: p, u, v, w
68 type(
field_t),
intent(inout) :: u_e, v_e, w_e
69 type(
field_t),
intent(inout) :: p_res
71 type(
field_t),
intent(inout) :: f_x, f_y, f_z
72 type(
coef_t),
intent(inout) :: c_Xh
73 type(
gs_t),
intent(inout) :: gs_Xh
76 class(
ax_t),
intent(inout) :: Ax
77 real(kind=
rp),
intent(inout) :: bd
78 real(kind=
rp),
intent(in) :: dt
79 real(kind=
rp),
intent(in) :: mu
80 real(kind=
rp),
intent(in) :: rho
85 subroutine vel_res(Ax, u, v, w, u_res, v_res, w_res, &
86 p, f_x, f_y, f_z, c_Xh, msh, Xh, mu, rho, bd, dt, n)
95 class(
ax_t),
intent(in) :: ax
96 type(
mesh_t),
intent(inout) :: msh
97 type(
space_t),
intent(inout) :: Xh
98 type(
field_t),
intent(inout) :: p, u, v, w
99 type(
field_t),
intent(inout) :: u_res, v_res, w_res
100 type(
field_t),
intent(inout) :: f_x, f_y, f_z
101 type(
coef_t),
intent(inout) :: c_Xh
102 real(kind=
rp),
intent(in) :: mu
103 real(kind=
rp),
intent(in) :: rho
104 real(kind=
rp),
intent(in) :: bd
105 real(kind=
rp),
intent(in) :: dt
106 integer,
intent(in) :: n
Defines a Matrix-vector product.
Dirichlet condition applied in the facet normal direction.
integer, parameter, public rp
Global precision used in computations.
Defines Pressure and velocity residuals in the Pn-Pn formulation.
Defines a function space.
Base type for a matrix-vector product providing .
Coefficients defined on a given (mesh, ) tuple. Arrays use indices (i,j,k,e): element e,...
Dirichlet condition in facet normal direction.
Abstract type to compute pressure residual.
Abstract type to compute velocity residual.
The function space for the SEM solution fields.