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
80 type(
field_t),
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 type(
field_t),
intent(in) :: mu
103 type(
field_t),
intent(in) :: rho
104 real(kind=
rp),
intent(in) :: bd
105 real(kind=
rp),
intent(in) :: dt
106 integer,
intent(in) :: n
117 module subroutine pnpn_prs_res_factory(object)
118 class(pnpn_prs_res_t),
allocatable,
intent(inout) :: object
119 end subroutine pnpn_prs_res_factory
125 module subroutine pnpn_vel_res_factory(object)
126 class(pnpn_vel_res_t),
allocatable,
intent(inout) :: object
127 end subroutine pnpn_vel_res_factory
133 module subroutine pnpn_prs_res_stress_factory(object)
134 class(pnpn_prs_res_t),
allocatable,
intent(inout) :: object
135 end subroutine pnpn_prs_res_stress_factory
141 module subroutine pnpn_vel_res_stress_factory(object)
142 class(pnpn_vel_res_t),
allocatable,
intent(inout) :: object
143 end subroutine pnpn_vel_res_stress_factory
147 public :: pnpn_prs_res_factory, pnpn_vel_res_factory, &
148 pnpn_prs_res_stress_factory, pnpn_vel_res_stress_factory
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.