Skip to content
Snippets Groups Projects

Draft: C++ port of horizontal/mo_lib_gradients.F90

Open Gwenolé Lucas requested to merge feature-add-cpp-codes-gradients into feature-add-cpp-codes
Files
3
@@ -58,8 +58,8 @@ void grad_fd_norm_lib(const T* psi_c,
// Compute the normal derivative by the finite difference approximation
// See Bonaventura and Ringler MWR 2005
grad_norm_psi_e_view(je, jk, jb) =
psi_c_view(edge_cell_idx_view(je, jb, 1), jk, edge_cell_blk_view(je, jb, 1)) -
psi_c_view(edge_cell_idx_view(je, jb, 0), jk, edge_cell_blk_view(je, jb, 0)) *
(psi_c_view(edge_cell_idx_view(je, jb, 1), jk, edge_cell_blk_view(je, jb, 1)) -
psi_c_view(edge_cell_idx_view(je, jb, 0), jk, edge_cell_blk_view(je, jb, 0))) *
inv_dual_edge_length_view(je, jb);
});
Kokkos::fence();
Loading