Updated hard-constant to be an r8

rgknox · Jul 11, 2018 · ac9085d · ac9085d
1 parent 516670a
commit ac9085d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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