Merge pull request #1050 from NGEET/mpaiao-drgt-decid-patch

Fix EDInitMod.F90 initialisation of drought deciduous variables
NGEET · Jul 8, 2023 · e1a3f73 · e1a3f73
2 parents b8ad811 + f7776b2
commit e1a3f73
Showing 1 changed file with 4 additions and 5 deletions.
diff --git 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