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

Port the functions of mo_lib_gradients.F90 to C++, with C bindings. Untested, but compiles.

src/horizontal/gradients_bindings.cpp

@@ -280,7 +280,7 @@ void grad_fe_cell_dycore_lib_sp_sp(const float* p_ccpr,
                                           lacc);
 }
 
-void grad_fe_cell_dycore_lib_sp_dp(const double* p_ccpr,
+void grad_fe_cell_dycore_lib_dp_sp(const double* p_ccpr,
                                    const int* cell_neighbor_idx, const int* cell_neighbor_blk,
                                    const float* gradc_bmat,
                                    double* p_grad,
@@ -293,7 +293,7 @@ void grad_fe_cell_dycore_lib_sp_dp(const double* p_ccpr,
                                    // OpenACC flag
                                    bool lacc)
 {
-    grad_fe_cell_dycore_lib<float, double>(p_ccpr,
+    grad_fe_cell_dycore_lib<double, float>(p_ccpr,
                                            cell_neighbor_idx, cell_neighbor_blk,
                                            gradc_bmat,
                                            p_grad,
@@ -304,7 +304,7 @@ void grad_fe_cell_dycore_lib_sp_dp(const double* p_ccpr,
                                            lacc);
 }
 
-void grad_fe_cell_dycore_lib_dp_sp(const float* p_ccpr,
+void grad_fe_cell_dycore_lib_sp_sp(const float* p_ccpr,
                                    const int* cell_neighbor_idx, const int* cell_neighbor_blk,
                                    const double* gradc_bmat,
                                    float* p_grad,
@@ -317,7 +317,7 @@ void grad_fe_cell_dycore_lib_dp_sp(const float* p_ccpr,
                                    // OpenACC flag
                                    bool lacc)
 {
-    grad_fe_cell_dycore_lib<double, float>(p_ccpr,
+    grad_fe_cell_dycore_lib<float, double>(p_ccpr,
                                            cell_neighbor_idx, cell_neighbor_blk,
                                            gradc_bmat,
                                            p_grad,
@@ -425,6 +425,7 @@ void grad_green_gauss_cell_adv_lib_dp_sp(const double* p_cc,
                                                  lacc);
 }
 
+/*
 void grad_green_gauss_cell_adv_lib_dp_dp(const double* p_cc,
                                          const int* cell_neighbor_idx, const int* cell_neighbor_blk,
                                          const double* geofac_grg,
@@ -649,3 +650,4 @@ void grad_green_gauss_cell_dycore_lib_dp_dp_opt(const double* p_ccpr,
                                                      nlev, nblks_c,
                                                      lacc, acc_async);
 }
+*/