From ac9085dd4f08dd9b13121d814ea065ac65a8149f Mon Sep 17 00:00:00 2001
From: Ryan Knox <rgknox@gmail.com>
Date: Wed, 11 Jul 2018 16:27:26 -0700
Subject: [PATCH] Updated hard-constant to be an r8

---
 biogeochem/FatesAllometryMod.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/biogeochem/FatesAllometryMod.F90 b/biogeochem/FatesAllometryMod.F90
index 8ced4209dc..6f7f499f23 100644
--- a/biogeochem/FatesAllometryMod.F90
+++ b/biogeochem/FatesAllometryMod.F90
@@ -2156,7 +2156,7 @@ function CumulativeLayerTVAI(icanlayer,     &
     end if
 
     ! Apply the cumulative TVAI at the current layer mid-point (ie 0.5*)
-    cum_tvai = cum_tvai + tvai0 + 0.5*tvai
+    cum_tvai = cum_tvai + tvai0 + 0.5_r8*tvai
     
     return
   end function CumulativeLayerTVAI