subroutine pnpn_res_cpu::pnpn_vel_res_cpu_compute |
( |
class(ax_t), intent(in) |
ax, |
|
|
type(field_t), intent(inout) |
u, |
|
|
type(field_t), intent(inout) |
v, |
|
|
type(field_t), intent(inout) |
w, |
|
|
type(field_t), intent(inout) |
u_res, |
|
|
type(field_t), intent(inout) |
v_res, |
|
|
type(field_t), intent(inout) |
w_res, |
|
|
type(field_t), intent(inout) |
p, |
|
|
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(mesh_t), intent(inout) |
msh, |
|
|
type(space_t), intent(inout) |
xh, |
|
|
type(field_t), intent(in) |
mu, |
|
|
type(field_t), intent(in) |
rho, |
|
|
real(kind=rp), intent(in) |
bd, |
|
|
real(kind=rp), intent(in) |
dt, |
|
|
integer, intent(in) |
n |
|
) |
| |
|
private |