From f5dce7f79c5a42cb5275f440cc8bfcce1375d85b Mon Sep 17 00:00:00 2001 From: Junqi Yin Date: Tue, 22 Aug 2017 14:14:30 -0400 Subject: [PATCH] Initialize unset local variables in CNAllocationMod --- components/clm/src/biogeochem/CNAllocationMod.F90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/components/clm/src/biogeochem/CNAllocationMod.F90 b/components/clm/src/biogeochem/CNAllocationMod.F90 index 4dd939e6681b..b90722c44e3f 100755 --- a/components/clm/src/biogeochem/CNAllocationMod.F90 +++ b/components/clm/src/biogeochem/CNAllocationMod.F90 @@ -3411,6 +3411,9 @@ subroutine CNAllocation3_PlantCNPAlloc (bounds , & curmr_ratio = curmr / mr xsmr_ratio = 1 - curmr_ratio availc(p) = gpp(p) + else + curmr_ratio = 0._r8 + xsmr_ratio = 0._r8 end if else if (mr > 0._r8 .and. gpp(p) <= mr) then @@ -3423,6 +3426,9 @@ subroutine CNAllocation3_PlantCNPAlloc (bounds , & curmr_ratio = curmr / mr xsmr_ratio = 0 availc(p) = gpp(p) - mr + else + curmr_ratio = 0._r8 + xsmr_ratio = 0._r8 end if end if