From c2a8f57518c2af0789e6d04c37c5415a7c045dfa Mon Sep 17 00:00:00 2001
From: Dom Heinzeller <dom.heinzeller@icloud.com>
Date: Sun, 22 May 2022 11:06:05 -0600
Subject: [PATCH] Switch working precision to single precision of preprocessor
 flag -DSINGLE_PRECISION is set

---
 rte/mo_rte_kind.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rte/mo_rte_kind.F90 b/rte/mo_rte_kind.F90
index de9e13e90..1d98f0d50 100644
--- a/rte/mo_rte_kind.F90
+++ b/rte/mo_rte_kind.F90
@@ -26,7 +26,11 @@ module mo_rte_kind
   !
   ! Floating point working precision
   !
+#ifdef SINGLE_PREC
+  integer, parameter :: wp = sp
+#else
   integer, parameter :: wp = dp
+#endif
 
   !
   ! Logical - for use with kernels