m_omptgt_backend Module


Uses

  • module~~m_omptgt_backend~~UsesGraph module~m_omptgt_backend m_omptgt_backend m_mpi m_mpi module~m_omptgt_backend->m_mpi module~m_allocator m_allocator module~m_omptgt_backend->module~m_allocator module~m_base_backend m_base_backend module~m_omptgt_backend->module~m_base_backend module~m_common m_common module~m_omptgt_backend->module~m_common module~m_field m_field module~m_omptgt_backend->module~m_field module~m_logger m_logger module~m_omptgt_backend->module~m_logger module~m_mesh m_mesh module~m_omptgt_backend->module~m_mesh module~m_omptgt_common m_omptgt_common module~m_omptgt_backend->module~m_omptgt_common module~m_omptgt_device_info m_omptgt_device_info module~m_omptgt_backend->module~m_omptgt_device_info module~m_omptgt_exec_dist m_omptgt_exec_dist module~m_omptgt_backend->module~m_omptgt_exec_dist module~m_omptgt_exec_thom m_omptgt_exec_thom module~m_omptgt_backend->module~m_omptgt_exec_thom module~m_omptgt_kernels_fieldops m_omptgt_kernels_fieldops module~m_omptgt_backend->module~m_omptgt_kernels_fieldops module~m_omptgt_sendrecv m_omptgt_sendrecv module~m_omptgt_backend->module~m_omptgt_sendrecv module~m_omptgt_tdsops m_omptgt_tdsops module~m_omptgt_backend->module~m_omptgt_tdsops module~m_tdsops m_tdsops module~m_omptgt_backend->module~m_tdsops omp_lib omp_lib module~m_omptgt_backend->omp_lib module~m_allocator->module~m_common module~m_allocator->module~m_field module~m_base_backend->module~m_allocator module~m_base_backend->module~m_common module~m_base_backend->module~m_field module~m_base_backend->module~m_logger module~m_base_backend->module~m_mesh module~m_base_backend->module~m_tdsops iso_c_binding iso_c_binding module~m_base_backend->iso_c_binding module~m_poisson_fft m_poisson_fft module~m_base_backend->module~m_poisson_fft module~m_common->m_mpi module~m_common->module~m_logger module~m_field->module~m_common module~m_field->iso_c_binding module~m_logger->m_mpi iso_fortran_env iso_fortran_env module~m_logger->iso_fortran_env module~m_mesh->m_mpi module~m_mesh->module~m_common module~m_mesh->module~m_field module~m_mesh->module~m_logger module~m_mesh_content m_mesh_content module~m_mesh->module~m_mesh_content module~m_omptgt_common->module~m_common module~m_omptgt_common->module~m_logger module~m_omptgt_common->omp_lib module~m_omptgt_common->iso_c_binding module~m_omptgt_device_info->iso_c_binding module~m_omptgt_exec_dist->module~m_common module~m_omptgt_exec_dist->module~m_logger module~m_omptgt_exec_dist->module~m_omptgt_common module~m_omptgt_exec_dist->module~m_omptgt_sendrecv module~m_omptgt_exec_dist->module~m_omptgt_tdsops module~m_omptgt_kernels_dist m_omptgt_kernels_dist module~m_omptgt_exec_dist->module~m_omptgt_kernels_dist module~m_omptgt_exec_thom->module~m_common module~m_omptgt_exec_thom->module~m_omptgt_tdsops module~m_omptgt_kernels_thom m_omptgt_kernels_thom module~m_omptgt_exec_thom->module~m_omptgt_kernels_thom module~m_omptgt_kernels_fieldops->module~m_common module~m_omptgt_kernels_fieldops->module~m_omptgt_common module~m_omptgt_sendrecv->m_mpi module~m_omptgt_sendrecv->module~m_common module~m_omptgt_sendrecv->module~m_omptgt_common module~m_omptgt_sendrecv->iso_c_binding module~m_omptgt_tdsops->module~m_common module~m_omptgt_tdsops->module~m_omptgt_common module~m_omptgt_tdsops->module~m_tdsops module~m_tdsops->module~m_common module~m_tdsops->module~m_logger module~m_mesh_content->module~m_common module~m_mesh_content->module~m_logger module~m_omptgt_kernels_dist->module~m_common module~m_omptgt_kernels_dist->module~m_omptgt_common module~m_omptgt_kernels_thom->module~m_common module~m_omptgt_kernels_thom->module~m_omptgt_common module~m_poisson_fft->module~m_common module~m_poisson_fft->module~m_field module~m_poisson_fft->module~m_logger module~m_poisson_fft->module~m_mesh module~m_poisson_fft->module~m_tdsops

Used by

  • module~~m_omptgt_backend~~UsedByGraph module~m_omptgt_backend m_omptgt_backend module~m_backend_setup m_backend_setup module~m_backend_setup->module~m_omptgt_backend program~x3d2_poisson_solver x3d2_poisson_solver program~x3d2_poisson_solver->module~m_backend_setup program~xcompact xcompact program~xcompact->module~m_backend_setup

Interfaces

public interface omptgt_backend_t

  • private function omptgt_backend_init(mesh, allocator) result(backend)

    Constructs the backend over a device-resident allocator and allocates its halo buffers, sized for the largest exchange of any direction.

    Arguments

    Type IntentOptional Attributes Name
    type(mesh_t), intent(inout), target :: mesh
    class(allocator_t), intent(inout), target :: allocator

    Return Value type(omptgt_backend_t)


Derived Types

type, public, extends(base_backend_t) ::  omptgt_backend_t

Components

Type Visibility Attributes Name Initial
integer, public :: n_halo = 4

DistD2 implementation is hardcoded for 4 halo layers for all backends
type(mesh_t), public, pointer :: mesh
class(allocator_t), public, pointer :: allocator
class(poisson_fft_t), public, pointer :: poisson_fft
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: u_recv_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: u_recv_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: u_send_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: u_send_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: v_recv_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: v_recv_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: v_send_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: v_send_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: w_recv_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: w_recv_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: w_send_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: w_send_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: du_send_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: du_send_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: du_recv_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: du_recv_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: dud_send_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: dud_send_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: dud_recv_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: dud_recv_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: d2u_send_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: d2u_send_e_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: d2u_recv_s_dev => null()

Device halo buffers, as in cuda_backend_t
real(kind=dp), public, pointer, contiguous, dimension(:, :, :) :: d2u_recv_e_dev => null()

Device halo buffers, as in cuda_backend_t

Constructor

private function omptgt_backend_init (mesh, allocator)

Constructs the backend over a device-resident allocator and allocates its halo buffers, sized for the largest exchange of any direction.

Type-Bound Procedures

procedure, public :: field_add_const_x_face => field_add_const_x_face_base
procedure, public :: field_set_x_inlet_plane => field_set_x_inlet_plane_base
procedure, public :: init_poisson_fft => init_poisson_fft_base
procedure, public :: base_init
procedure, public :: get_field_data
procedure, public :: set_field_data
procedure, public :: supports_device_field_export
procedure, public :: export_field_to_device
procedure, public :: alloc_tdsops => alloc_omptgt_tdsops
procedure, public :: transeq_x => transeq_x_omptgt
procedure, public :: transeq_y => transeq_y_omptgt
procedure, public :: transeq_z => transeq_z_omptgt
procedure, public :: transeq_species => transeq_species_omptgt
procedure, public :: tds_solve => tds_solve_omptgt
procedure, public :: thom_solve => thom_solve_omptgt
procedure, public :: reorder => reorder_omptgt
procedure, public :: sum_yintox => sum_yintox_omptgt
procedure, public :: sum_zintox => sum_zintox_omptgt
procedure, public :: veccopy => veccopy_omptgt
procedure, public :: vecadd => vecadd_omptgt
procedure, public :: vecmult => vecmult_omptgt
procedure, public :: scalar_product => scalar_product_omptgt
procedure, public :: vector_norm_squared => vector_norm_squared_omptgt
procedure, public :: field_labelled_sums => field_labelled_sums_omptgt
procedure, public :: field_labelled_axpy => field_labelled_axpy_omptgt
procedure, public :: field_max_mean => field_max_mean_omptgt
procedure, public :: slice_max_sum => slice_max_sum_omptgt
procedure, public :: field_scale => field_scale_omptgt
procedure, public :: field_shift => field_shift_omptgt
procedure, public :: field_set_face => field_set_face_omptgt
procedure, public :: field_set_y_plane => field_set_y_plane_omptgt
procedure, public :: field_plane_sums => field_plane_sums_omptgt
procedure, public :: field_set_abl_wall_stress => field_set_abl_wall_stress_omptgt
procedure, public :: field_set_face_from_field => field_set_face_from_field_omptgt
procedure, public :: field_add_face_from_field => field_add_face_from_field_omptgt
procedure, public :: compute_vorticity => compute_vorticity_omptgt
procedure, public :: compute_qcriterion => compute_qcriterion_omptgt
procedure, public :: compute_smagorinsky_nut => compute_smagorinsky_nut_omptgt
procedure, public :: compute_sgs_stress => compute_sgs_stress_omptgt
procedure, public :: field_volume_integral => field_volume_integral_omptgt
procedure, public :: copy_data_to_f => copy_data_to_f_omptgt
procedure, public :: copy_f_to_data => copy_f_to_data_omptgt
procedure, public :: sync => sync_omptgt
procedure, public :: get_device_bw_info => get_device_bw_info_omptgt
procedure, public :: transeq_omptgt_dist
procedure, public :: tds_solve_dist

Subroutines

public subroutine resolve_field_t(u_dev, u)

Views the device storage of u as an array of its current shape. The pointer holds a device address: pass it to a kernel, never index it on the host.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(out), pointer, contiguous, dimension(:, :, :) :: u_dev
class(field_t), intent(in) :: u