diff --git a/components/clm/src/biogeochem/CNAllocationMod.F90 b/components/clm/src/biogeochem/CNAllocationMod.F90 index 415033746b20..927d11ed60c4 100755 --- 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