34 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
38 use mpi_f08,
only: mpi_sum, mpi_in_place, mpi_allreduce
47 g21_d, g22_d, g23_d, &
48 g31_d, g32_d, g33_d, &
49 delta_d, nut_d, mult_d, c, eps, n) &
50 bind(c, name =
'hip_sigma_nut_compute')
51 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
53 type(c_ptr),
value :: g11_d, g12_d, g13_d, &
54 g21_d, g22_d, g23_d, &
55 g31_d, g32_d, g33_d, &
56 delta_d, nut_d, mult_d
64 g21_d, g22_d, g23_d, &
65 g31_d, g32_d, g33_d, &
66 delta_d, nut_d, mult_d, c, eps, n) &
67 bind(c, name =
'cuda_sigma_nut_compute')
68 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
70 type(c_ptr),
value :: g11_d, g12_d, g13_d, &
71 g21_d, g22_d, g23_d, &
72 g31_d, g32_d, g33_d, &
73 delta_d, nut_d, mult_d
87 g21_d, g22_d, g23_d, &
88 g31_d, g32_d, g33_d, &
89 delta_d, nut_d, mult_d, c, eps, n)
90 type(c_ptr) :: g11_d, g12_d, g13_d, &
91 g21_d, g22_d, g23_d, &
92 g31_d, g32_d, g33_d, &
93 delta_d, nut_d, mult_d
95 real(kind=
rp) :: c, eps
98 g21_d, g22_d, g23_d, &
99 g31_d, g32_d, g33_d, &
100 delta_d, nut_d, mult_d, c, eps, n)
103 g21_d, g22_d, g23_d, &
104 g31_d, g32_d, g33_d, &
105 delta_d, nut_d, mult_d, c, eps, n)
107 call neko_error(
'opencl backend is not supported for device_sigma_nut')
109 call neko_error(
'no device backend configured')
114 end module device_sigma_nut
type(mpi_comm) neko_comm
MPI communicator.
type(mpi_datatype) mpi_real_precision
MPI type for working precision of REAL types.
integer pe_size
MPI size of communicator.
subroutine, public device_sigma_nut_compute(g11_d, g12_d, g13_d, g21_d, g22_d, g23_d, g31_d, g32_d, g33_d, delta_d, nut_d, mult_d, c, eps, n)
Compute the eddy viscosity field for the Sigma model indevice.
integer, parameter, public c_rp
integer, parameter, public rp
Global precision used in computations.
void cuda_sigma_nut_compute(void *g11, void *g12, void *g13, void *g21, void *g22, void *g23, void *g31, void *g32, void *g33, void *delta, void *nut, void *mult, real *c, real *eps, int *n)