Initialize unset local variables in CNAllocationMod

E3SM-Project · Aug 22, 2017 · f5dce7f · f5dce7f
1 parent 1bcd51d
commit f5dce7f
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
@@ -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