diff --git a/main/EDInitMod.F90 b/main/EDInitMod.F90 index de0a5be0e5..50d2bcf56c 100644 --- a/main/EDInitMod.F90 +++ b/main/EDInitMod.F90 @@ -847,6 +847,10 @@ subroutine init_cohorts( site_in, patch_in, bc_in) temp_cohort%canopy_trim = 1.0_r8 temp_cohort%crowndamage = 1 ! Assume no damage to begin with + ! Retrieve drop fraction of non-leaf tissues for phenology initialisation + fnrt_drop_fraction = prt_params%phen_fnrt_drop_fraction(pft) + stem_drop_fraction = prt_params%phen_stem_drop_fraction(pft) + ! Initialise phenology variables. spmode_case: select case (hlm_use_sp) @@ -913,11 +917,6 @@ subroutine init_cohorts( site_in, patch_in, bc_in) temp_cohort%n = temp_cohort%n * sum(site_in%use_this_pft) endif - ! Retrieve drop fraction of non-leaf tissues for phenology initialisation - fnrt_drop_fraction = prt_params%phen_fnrt_drop_fraction(temp_cohort%pft) - stem_drop_fraction = prt_params%phen_stem_drop_fraction(temp_cohort%pft) - - ! h,dbh,leafc,n from SP values or from small initial size. if(hlm_use_sp.eq.itrue)then