47 module subroutine pnpn_prs_res_factory(object)
48 class(pnpn_prs_res_t),
allocatable,
intent(inout) :: object
50 if (
allocated(object))
then
63 end subroutine pnpn_prs_res_factory
69 module subroutine pnpn_vel_res_factory(object)
70 class(pnpn_vel_res_t),
allocatable,
intent(inout) :: object
72 if (
allocated(object))
then
84 end subroutine pnpn_vel_res_factory
86 end submodule pnpn_res_fctry
integer, parameter neko_bcknd_sx
integer, parameter neko_bcknd_device
Residuals in the Pn-Pn formulation (CPU version)
Residuals in the Pn-Pn formulation (SX version)
Defines Pressure and velocity residuals in the Pn-Pn formulation.