Merge branch 'jqyin/lnd/fix-uninit' into next (PR #1752)

Initialize unset local variables in CNAllocationMod Fixes #1717 [non-BFB]
E3SM-Project · Sep 5, 2017 · f8782b4 · f8782b4
2 parents 1d9e89d + f5dce7f
commit f8782b4
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/components/clm/src/biogeochem/CNAllocationMod.F90 b/components/clm/src/biogeochem/CNAllocationMod.F90
@@ -3418,6 +3418,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
@@ -3430,6 +3433,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