subroutine, public viscosity_preqx_base::biharmonic_wk_dp3d |
( |
type (element_t), dimension(:), intent(inout), target |
elem, |
|
|
real (kind=real_kind), dimension(np,np,nlev,nets:nete) |
dptens, |
|
|
real (kind=real_kind), dimension(np,np,nlev,nets:nete) |
ptens, |
|
|
real (kind=real_kind), dimension(np,np,2,nlev,nets:nete) |
vtens, |
|
|
type (derivative_t), intent(in) |
deriv, |
|
|
type (edgebuffer_t), intent(inout) |
edge3, |
|
|
type (hybrid_t), intent(in) |
hybrid, |
|
|
integer, intent(in) |
nt, |
|
|
integer, intent(in) |
nets, |
|
|
integer, intent(in) |
nete |
|
) |
| |