Disable obsolete apply_BC function

microhh · Apr 14, 2024 · 668aa41 · 668aa41
1 parent 59b0ba5
commit 668aa41
Show file tree

Hide file tree

Showing 3 changed files with 31 additions and 13 deletions.
diff --git a/include/rrtmgp_kernels.h b/include/rrtmgp_kernels.h
@@ -137,6 +137,7 @@ namespace rrtmgp_kernels
             Bool* tropo, int* jtemp,
             Float* tau_rayleigh);
 
+    /*
     extern "C" void apply_BC_0(
             const int& ncol,
             const int& nlay,
@@ -151,6 +152,7 @@ namespace rrtmgp_kernels
             const Bool& top_at_1,
             const Float* inc_flux,
             Float* gpt_flux_dn);
+            */
 
     extern "C" void rte_lw_solver_noscat(
             int* ncol, int* nlay, int* ngpt, Bool* top_at_1, int* n_quad_angs,
@@ -164,6 +166,7 @@ namespace rrtmgp_kernels
             Bool* do_jacobians, Float* sfc_source_jac, Float* gpt_flux_up_jac,
             Bool* do_rescaling, Float* ssa, Float* g);
 
+    /*
     extern "C" void apply_BC_factor(
             const int& ncol,
             const int& nlay,
@@ -172,6 +175,7 @@ namespace rrtmgp_kernels
             const Float* inc_flux,
             const Float* factor,
             Float* flux_dn);
+            */
 
     extern "C" void rte_sw_solver_2stream(
             const int& ncol,

diff --git a/src/Rte_lw.cpp b/src/Rte_lw.cpp
@@ -31,26 +31,41 @@
 
 namespace rrtmgp_kernel_launcher
 {
-    template<typename Float>
+    /*
     void apply_BC(
-            int ncol, int nlay, int ngpt,
-            Bool top_at_1, Array<Float,3>& gpt_flux_dn)
+            const int ncol,
+            const int nlay,
+            const int ngpt,
+            const Bool top_at_1,
+            Array<Float,3>& gpt_flux_dn)
     {
         rrtmgp_kernels::apply_BC_0(
-                &ncol, &nlay, &ngpt,
-                &top_at_1, gpt_flux_dn.ptr());
+                ncol,
+                nlay,
+                ngpt,
+                top_at_1,
+                gpt_flux_dn.ptr());
     }
 
-    template<typename Float>
+
     void apply_BC(
-            int ncol, int nlay, int ngpt,
-            Bool top_at_1, const Array<Float,2>& inc_flux,
+            const int ncol,
+            const int nlay,
+            const int ngpt,
+            const Bool top_at_1,
+            const Array<Float,2>& inc_flux,
             Array<Float,3>& gpt_flux_dn)
     {
         rrtmgp_kernels::apply_BC_gpt(
-                &ncol, &nlay, &ngpt,
-                &top_at_1, const_cast<Float*>(inc_flux.ptr()), gpt_flux_dn.ptr());
+                ncol,
+                nlay,
+                ngpt,
+                top_at_1,
+                inc_flux.ptr(),
+                gpt_flux_dn.ptr());
     }
+    */
+
 
     template<typename Float>
     void lw_solver_noscat_GaussQuad(

diff --git a/src/Rte_sw.cpp b/src/Rte_sw.cpp
@@ -30,7 +30,7 @@
 
 namespace rrtmgp_kernel_launcher
 {
-    template<typename Float>
+    /*
     void apply_BC(
             const int ncol,
             const int nlay,
@@ -47,7 +47,6 @@ namespace rrtmgp_kernel_launcher
     }
 
 
-    template<typename Float>
     void apply_BC(
             const int ncol,
             const int nlay,
@@ -66,7 +65,6 @@ namespace rrtmgp_kernel_launcher
     }
 
 
-    template<typename Float>
     void apply_BC(
             const int ncol,
             const int nlay,
@@ -85,6 +83,7 @@ namespace rrtmgp_kernel_launcher
                 const_cast<Float*>(factor.ptr()),
                 gpt_flux.ptr());
     }
+    */
 
 
     void sw_solver_2stream(