Skip to content

Commit

Permalink
fix in myc_cn_fluxes AM
Browse files Browse the repository at this point in the history
  • Loading branch information
@elisacw
elisacw committed Dec 3, 2024
1 parent 382c6f4 commit 27bbadf
Showing 1 changed file with 8 additions and 8 deletions.
16 changes: 8 additions & 8 deletions src/soilbiogeochem/SoilBiogeochemDecompCascadeMIMICSplusMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1959,16 +1959,16 @@ subroutine myc_cn_fluxes(dz, fc_to_myc, fn_to_myc, fn_to_veg, fn_myc_growth, fc_
fc_myc_enz = fc_to_myc * f_enz * c_use_eff
fc_myc_growth = fn_myc_growth * params_inst%mimicsplus_cn_myc
! enzyme flux will go to soma pool in the next update
!fc_myc_resp = fc_to_myc - (fc_myc_growth + fc_myc_enz) ! C that they don't need to grow
fc_myc_resp = fc_to_myc * (c_use_eff)
fc_myc_resp = fc_to_myc - (fc_myc_growth + fc_myc_enz) ! C that they don't need to grow
!fc_myc_resp = fc_to_myc * (1 - c_use_eff)
else ! less N in soil, so we limit N flux to vegetaion and mycorrhiza N demand so their sum is equal to N uptake
fn_to_veg = (1-f_growth) * N_uptake_myc
c_use_eff = f_growth * N_uptake_myc * params_inst%mimicsplus_cn_myc / (1.0_r8 - f_enz) / fc_to_myc
fn_myc_growth = f_growth * N_uptake_myc
fc_myc_enz = fc_to_myc * f_enz * c_use_eff
fc_myc_growth = c_use_eff * fc_to_myc
!fc_myc_resp = fc_to_myc - (fc_myc_growth + fc_myc_enz) ! C that they don't need to grow
fc_myc_resp = fc_to_myc * (c_use_eff)
fc_myc_resp = fc_to_myc - (fc_myc_growth + fc_myc_enz) ! C that they don't need to grow
!fc_myc_resp = fc_to_myc * (1 - c_use_eff)
end if
else
fn_to_veg = 0.0_r8
Expand All @@ -1984,16 +1984,16 @@ subroutine myc_cn_fluxes(dz, fc_to_myc, fn_to_myc, fn_to_veg, fn_myc_growth, fc_
fn_myc_growth = N_demand_myc ! How much N the need to grow
fc_myc_growth = fn_myc_growth * params_inst%mimicsplus_cn_myc
! enzyme flux will go to soma pool in the next update
!fc_myc_resp = fc_to_myc - fc_myc_growth
fc_myc_resp = fc_to_myc * (c_use_eff) ! C that they don't need to grow
fc_myc_resp = fc_to_myc - fc_myc_growth
!fc_myc_resp = fc_to_myc * (1 - c_use_eff) ! C that they don't need to grow
else ! less N in soil, so we limit N flux to vegetaion and mycorrhiza N demand so their sum is equal to N uptake
fn_to_veg = (1-f_growth) * N_uptake_myc
c_use_eff = f_growth * N_uptake_myc * params_inst%mimicsplus_cn_myc / fc_to_myc !ECW 02.12.24
fn_myc_growth = f_growth * N_uptake_myc
!fc_myc_growth = c_use_eff * fc_to_myc !ECW double check this or nex line
fc_myc_growth = fn_myc_growth * params_inst%mimicsplus_cn_myc / fc_to_myc
! fc_myc_resp = fc_to_myc - fc_myc_growth ! C that they don't need to grow
fc_myc_resp = fc_to_myc * (c_use_eff)
fc_myc_resp = fc_to_myc - fc_myc_growth ! C that they don't need to grow
!fc_myc_resp = fc_to_myc * (1 - c_use_eff)
end if
else
fn_to_veg = 0.0_r8
Expand Down

0 comments on commit 27bbadf

Please sign in to comment.