process_spectral_100_pair_fw Subroutine

public subroutine process_spectral_100_pair_fw(div_u, mirror, mirror_plane, waves, nx_spec, ny_spec, y_sp_st, nx, nz, ay, by)

Stage 2 (forward): the dim2 paired split, then the Poisson solve.

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(inout), device, dimension(:, :, :) :: div_u

Divergence of velocity in spectral space
complex(kind=dp), intent(in), device, dimension(:, :, :) :: mirror

dim2 mirror of the local slab, and the single plane below it
complex(kind=dp), intent(in), device, dimension(:, :) :: mirror_plane
complex(kind=dp), intent(in), device, dimension(:, :, :) :: waves

Spectral equivalence constants
integer, intent(in), value :: nx_spec

Grid size in spectral space
integer, intent(in), value :: ny_spec

Grid size in spectral space
integer, intent(in), value :: y_sp_st

Offset in the paired direction in the permuted slabs in spectral space
integer, intent(in), value :: nx

Grid size
integer, intent(in), value :: nz

Grid size
real(kind=dp), intent(in), device, dimension(:) :: ay
real(kind=dp), intent(in), device, dimension(:) :: by

Calls

proc~~process_spectral_100_pair_fw~~CallsGraph proc~process_spectral_100_pair_fw m_cuda_spectral::process_spectral_100_pair_fw proc~pair_fw m_cuda_spectral::pair_fw proc~process_spectral_100_pair_fw->proc~pair_fw proc~poisson_divide m_cuda_spectral::poisson_divide proc~process_spectral_100_pair_fw->proc~poisson_divide

Called by

proc~~process_spectral_100_pair_fw~~CalledByGraph proc~process_spectral_100_pair_fw m_cuda_spectral::process_spectral_100_pair_fw proc~fft_postprocess_100_cuda m_cuda_poisson_fft::cuda_poisson_fft_t%fft_postprocess_100_cuda proc~fft_postprocess_100_cuda->proc~process_spectral_100_pair_fw