From e402f0cb16dfca2a23014f4b03b7b5e977eda0b4 Mon Sep 17 00:00:00 2001 From: Ryan Knox Date: Mon, 11 Sep 2023 12:07:52 -0400 Subject: [PATCH] Small quality of life update to cohort age in create_cohort --- main/EDInitMod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main/EDInitMod.F90 b/main/EDInitMod.F90 index 384f0d8103..de80dd8920 100644 --- a/main/EDInitMod.F90 +++ b/main/EDInitMod.F90 @@ -846,7 +846,7 @@ subroutine init_cohorts(site_in, patch_in, bc_in) real(r8) :: stem_drop_fraction ! fraction of stem to absciss when leaves absciss real(r8) :: fnrt_drop_fraction ! fraction of fine roots to absciss when leaves absciss integer, parameter :: recruitstatus = 0 ! whether the newly created cohorts are recruited or initialized - + real(r8),parameter :: zero_co_age = 0._r8 ! The age of a newly recruited cohort is zero !------------------------------------------------------------------------------------- patch_in%tallest => null() @@ -1083,7 +1083,7 @@ subroutine init_cohorts(site_in, patch_in, bc_in) call prt%CheckInitialConditions() call create_cohort(site_in, patch_in, pft, cohort_n, & - hite, 0.0_r8, dbh, prt, efleaf_coh, & + hite, zero_co_age, dbh, prt, efleaf_coh, & effnrt_coh, efstem_coh, leaf_status, recruitstatus, & canopy_trim, c_area, 1, crown_damage, site_in%spread, bc_in)