diff --git a/src/science/casa-cnp/biogeochem_casa.F90 b/src/science/casa-cnp/biogeochem_casa.F90
index c37eff096..1c1e7bec1 100644
--- a/src/science/casa-cnp/biogeochem_casa.F90
+++ b/src/science/casa-cnp/biogeochem_casa.F90
@@ -83,7 +83,7 @@ SUBROUTINE biogeochem(ktau,dels,idoY,LALLOC,veg,soil,casabiome,casapool,casaflux
 
              casaflux%kplant(POP%Iwood,2) =  1.0 -  &
                   (1.0-  MAX( MIN((POP%pop_grid(:)%stress_mortality + &
-                  POP%pop_grid(:)%crowding_mortality+ &
+                  POP%pop_grid(:)%crowding_mortality &
                   + POP%pop_grid(:)%fire_mortality ) &
                   /(POP%pop_grid(:)%cmass_sum+POP%pop_grid(:)%growth) + &
                   1.0/veg%disturbance_interval(POP%Iwood,1), 0.99), 0.0))**(1.0/365.0)
@@ -91,7 +91,7 @@ SUBROUTINE biogeochem(ktau,dels,idoY,LALLOC,veg,soil,casabiome,casapool,casaflux
           ELSEWHERE
              casaflux%kplant(POP%Iwood,2) =  1.0 -  &
                   (1.0-  MAX( MIN((POP%pop_grid(:)%stress_mortality + &
-                  POP%pop_grid(:)%crowding_mortality+ &
+                  POP%pop_grid(:)%crowding_mortality &
                   + POP%pop_grid(:)%fire_mortality+POP%pop_grid(:)%cat_mortality  ) &
                   /(POP%pop_grid(:)%cmass_sum+POP%pop_grid(:)%growth), 0.99), 0.0))**(1.0/365.0)