process_spectral_100 Subroutine

public subroutine process_spectral_100(div_u, waves, nx_spec, ny_spec, nz_spec, x_sp_st, y_sp_st, z_sp_st, nx, ny, nz, ax, bx, ay, by, az, bz)

Post-process div U* in spectral space, for non-periodic BC in x-dir.

This is the process_spectral_010 arrangement with x and y swapped: the caller passes the transposed buffer (dim1 = y modes, dim2 = x modes, dim3 = z), so this wrapper maps the global sizes nx <-> ny and the coefficient pairs ax, bx <-> ay, by onto process_spectral_010's non-periodic-y convention before delegating to it.

Arguments

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

Divergence of velocity in spectral space

complex(kind=dp), intent(in), dimension(:, :, :) :: waves

Spectral equivalence constants

integer, intent(in) :: nx_spec

Grid size in spectral space

integer, intent(in) :: ny_spec

Grid size in spectral space

integer, intent(in) :: nz_spec

Grid size in spectral space

integer, intent(in) :: x_sp_st

Offsets in the permuted pencils in spectral space

integer, intent(in) :: y_sp_st

Offsets in the permuted pencils in spectral space

integer, intent(in) :: z_sp_st

Offsets in the permuted pencils in spectral space

integer, intent(in) :: nx

Global cell size

integer, intent(in) :: ny

Global cell size

integer, intent(in) :: nz

Global cell size

real(kind=dp), intent(in), dimension(:) :: ax
real(kind=dp), intent(in), dimension(:) :: bx
real(kind=dp), intent(in), dimension(:) :: ay
real(kind=dp), intent(in), dimension(:) :: by
real(kind=dp), intent(in), dimension(:) :: az
real(kind=dp), intent(in), dimension(:) :: bz

Calls

proc~~process_spectral_100~~CallsGraph proc~process_spectral_100 m_omp_spectral::process_spectral_100 proc~process_spectral_010~2 m_omp_spectral::process_spectral_010 proc~process_spectral_100->proc~process_spectral_010~2

Called by

proc~~process_spectral_100~~CalledByGraph proc~process_spectral_100 m_omp_spectral::process_spectral_100 proc~fft_postprocess_100_omp m_omp_poisson_fft::omp_poisson_fft_t%fft_postprocess_100_omp proc~fft_postprocess_100_omp->proc~process_spectral_100