Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Updates and fixes to maintenance respiration #138

Merged
merged 13 commits into from
Oct 31, 2016
Merged

Updates and fixes to maintenance respiration #138

Show file tree
Hide file tree
Changes from 10 commits
Commits
Show all changes
13 commits
Select commit Hold shift + click to select a range
32dd172
Science fixes on sapwood and fine root respiration. First pass, no te…
rgknox Oct 7, 2016
58e27de
fixed typo where MR of bg sapwood was double multiplied by bg root fr…
rgknox Oct 8, 2016
4416814
Added several AR diagnostics. Also changed the units of dark-respira…
rgknox Oct 10, 2016
0ca158e
minor fix to update the pft index during the scpf output for photosyn…
rgknox Oct 12, 2016
a3e1966
Merge resolution. EDCLMLinkMod was removed in master. That file had …
rgknox Oct 12, 2016
4ecda62
minor fix, livecrootn was still in a print statement that I overlooke…
rgknox Oct 12, 2016
d0150fe
fixed hard-coded pft index in grperc found in photosynthesis
rgknox Oct 13, 2016
f34bcb8
Merge branch 'andre-fates-constants' into rgknox-ckoven-froot-mr
rgknox Oct 13, 2016
15824a2
added some more global constants and uses in photosynthesis. Also, fi…
rgknox Oct 14, 2016
fe9f7a1
intercellular co2 in photosynthesis was being represented as an array…
rgknox Oct 14, 2016
fb3e9ca
renamed some local variables related to nitrogen content.
rgknox Oct 18, 2016
44d762d
Added cohort type variables size_class and size_by_pft_class. These v…
rgknox Oct 18, 2016
8e2b86f
Various syntactical fixes including: making rgas more explicit in its…
rgknox Oct 27, 2016
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
21 changes: 0 additions & 21 deletions components/clm/src/ED/biogeochem/EDCanopyStructureMod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -675,7 +675,6 @@ subroutine canopy_summarization( nsites, sites, bc_in )
integer :: ft ! plant functional type
integer :: ifp
integer :: patchn ! identification number for each patch.
real(r8) :: coarse_wood_frac
real(r8) :: canopy_leaf_area ! total amount of leaf area in the vegetated area. m2.

!----------------------------------------------------------------------
Expand Down Expand Up @@ -710,26 +709,6 @@ subroutine canopy_summarization( nsites, sites, bc_in )
do while(associated(currentCohort))

ft = currentCohort%pft
currentCohort%livestemn = currentCohort%bsw / pftcon%leafcn(currentCohort%pft)

currentCohort%livecrootn = 0.0_r8

if (pftcon%woody(ft) == 1) then
coarse_wood_frac = 0.5_r8
else
coarse_wood_frac = 0.0_r8
end if

if ( DEBUG ) then
write(fates_log(),*) 'canopy_summarization 724 ',currentCohort%livecrootn
write(fates_log(),*) 'canopy_summarization 725 ',currentCohort%br
write(fates_log(),*) 'canopy_summarization 726 ',coarse_wood_frac
write(fates_log(),*) 'canopy_summarization 727 ',pftcon%leafcn(ft)
endif

currentCohort%livecrootn = currentCohort%br * coarse_wood_frac / pftcon%leafcn(ft)

if ( DEBUG ) write(fates_log(),*) 'canopy_summarization 732 ',currentCohort%livecrootn

currentCohort%b = currentCohort%balive+currentCohort%bdead+currentCohort%bstore
currentCohort%treelai = tree_lai(currentCohort)
Expand Down
16 changes: 3 additions & 13 deletions components/clm/src/ED/biogeochem/EDCohortDynamicsMod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -361,7 +361,7 @@ subroutine nan_cohort(cc_p)


!RESPIRATION
currentCohort%rd = nan
currentCohort%rdark = nan
currentCohort%resp_m = nan ! Maintenance respiration. kGC/cohort/year
currentCohort%resp_g = nan ! Growth respiration. kGC/cohort/year
currentCohort%livestem_mr = nan ! Live stem maintenance respiration. kgC/indiv/s-1
Expand All @@ -381,11 +381,6 @@ subroutine nan_cohort(cc_p)
currentCohort%leaf_litter = nan ! leaf litter from phenology: KgC/m2
currentCohort%woody_turnover = nan ! amount of wood lost each day: kgC/indiv/year. Currently set to zero.

! NITROGEN POOLS
currentCohort%livestemn = nan ! live stem nitrogen : KgN/invid
currentCohort%livecrootn = nan ! live coarse root nitrogen: KgN/invid
currentCohort%frootn = nan ! fine root nitrogen : KgN/invid

! VARIABLES NEEDED FOR INTEGRATION
currentCohort%dndt = nan ! time derivative of cohort size
currentCohort%dhdt = nan ! time derivative of height
Expand Down Expand Up @@ -423,7 +418,7 @@ subroutine zero_cohort(cc_p)

currentCohort%NV = 0
currentCohort%status_coh = 0
currentCohort%rd = 0._r8
currentCohort%rdark = 0._r8
currentCohort%resp_m = 0._r8
currentCohort%resp_g = 0._r8
currentCohort%livestem_mr = 0._r8
Expand Down Expand Up @@ -1040,18 +1035,13 @@ subroutine copy_cohort( currentCohort,copyc )
n%npp_store = o%npp_store

!RESPIRATION
n%rd = o%rd
n%rdark = o%rdark
n%resp_m = o%resp_m
n%resp_g = o%resp_g
n%livestem_mr = o%livestem_mr
n%livecroot_mr = o%livecroot_mr
n%froot_mr = o%froot_mr

! NITROGEN POOLS
n%livestemn = o%livestemn
n%livecrootn = o%livecrootn
n%frootn = o%frootn

! ALLOCATION
n%md = o%md
n%leaf_md = o%leaf_md
Expand Down
Loading