| subroutine ax_helm_svv_one_sided_full_cpu::ax_helm_svv_one_sided_full_lx |
( |
real(kind=rp), dimension(lx, lx, lx, n), intent(inout) |
au, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(inout) |
av, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(inout) |
aw, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
u, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
v, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
w, |
|
|
real(kind=rp), dimension(lx,lx), intent(in) |
dx, |
|
|
real(kind=rp), dimension(lx,lx), intent(in) |
dy, |
|
|
real(kind=rp), dimension(lx,lx), intent(in) |
dz, |
|
|
real(kind=rp), dimension(lx,lx), intent(in) |
dxt, |
|
|
real(kind=rp), dimension(lx,lx), intent(in) |
dyt, |
|
|
real(kind=rp), dimension(lx,lx), intent(in) |
dzt, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
h1, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
drdx, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
drdy, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
drdz, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
dsdx, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
dsdy, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
dsdz, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
dtdx, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
dtdy, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
dtdz, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
jacinv, |
|
|
real(kind=rp), dimension(lx, lx, lx), intent(in) |
weights3, |
|
|
real(kind=rp), dimension(lx, lx, lx, n), intent(in) |
svv_h1, |
|
|
real(kind=rp), dimension(lx, lx), intent(in) |
svv_q, |
|
|
real(kind=rp), dimension(lx, lx), intent(in) |
svv_qt, |
|
|
character(len=*), intent(in) |
svv_direction, |
|
|
real(kind=rp), dimension(lx, lx), intent(in) |
ident, |
|
|
integer, intent(in) |
n, |
|
|
integer, intent(in) |
lx |
|
) |
| |
|
private |