subroutine pnpn_res_stress_device::pnpn_prs_res_stress_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) |
u_e, |
|
|
type(field_t), intent(in) |
v_e, |
|
|
type(field_t), intent(in) |
w_e, |
|
|
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 |
|
) |
| |
|
private |