Residuals in the Pn-Pn formulation (device backend)
|
| subroutine | adjoint_pnpn_prs_res_device_compute (p, p_res, u, v, w, f_x, f_y, f_z, c_xh, gs_xh, bc_prs_surface, bc_sym_surface, ax, bd, dt, mu, rho, event) |
| | Compute adjoint pressure residual (device backend).
|
| |
◆ adjoint_pnpn_prs_res_device_compute()
| subroutine adjoint_pnpn_res_device::adjoint_pnpn_prs_res_device_compute |
( |
type(field_t), intent(inout) |
p, |
|
|
type(field_t), intent(inout) |
p_res, |
|
|
type(field_t), intent(inout) |
u, |
|
|
type(field_t), intent(inout) |
v, |
|
|
type(field_t), intent(inout) |
w, |
|
|
type(field_t), intent(in) |
f_x, |
|
|
type(field_t), intent(in) |
f_y, |
|
|
type(field_t), intent(in) |
f_z, |
|
|
type(coef_t), intent(inout) |
c_xh, |
|
|
type(gs_t), intent(inout) |
gs_xh, |
|
|
type(facet_normal_t), intent(in) |
bc_prs_surface, |
|
|
type(facet_normal_t), intent(in) |
bc_sym_surface, |
|
|
class(ax_t), intent(inout) |
ax, |
|
|
real(kind=rp), intent(in) |
bd, |
|
|
real(kind=rp), intent(in) |
dt, |
|
|
type(field_t), intent(in) |
mu, |
|
|
type(field_t), intent(in) |
rho, |
|
|
type(c_ptr), intent(inout) |
event |
|
) |
| |
- Parameters
-
| p | Adjoint pressure field. |
| p_res | Pressure residual output. |
| u | Adjoint velocity x-component. |
| v | Adjoint velocity y-component. |
| w | Adjoint velocity z-component. |
| f_x | Explicit forcing x-component. |
| f_y | Explicit forcing y-component. |
| f_z | Explicit forcing z-component. |
| c_Xh | Coefficients on the pressure space. |
| gs_Xh | Gather-scatter operator on the pressure space. |
| bc_prs_surface | Pressure boundary surface normals. |
| bc_sym_surface | Symmetry boundary surface normals. |
| Ax | Helmholtz operator. |
| bd | BDF coefficient for the current step. |
| dt | Time-step size. |
| mu | Dynamic viscosity field (assumed constant). |
| rho | Density field (assumed constant). |
| event | Backend event handle for gather-scatter synchronization. |
Definition at line 87 of file adjoint_pnpn_res_device.F90.