diff --git a/ED/src/dynamics/plant_hydro.f90 b/ED/src/dynamics/plant_hydro.f90 index ac3d85269..e5551b7a0 100644 --- a/ED/src/dynamics/plant_hydro.f90 +++ b/ED/src/dynamics/plant_hydro.f90 @@ -1396,7 +1396,7 @@ subroutine tw2rwc(leaf_water_int,wood_water_int,is_small,bleaf,bsapwooda,bsapwoo wood_rwc = wood_water_int / tot_water_sat elseif (is_small) then wood_rwc = op_buff * small_rwc_min(ipft) - elseif (is_small) then + else wood_rwc = op_buff * wood_rwc_min(ipft) end if !------------------------------------------------------------------------------------!