Skip to content

Add call to set FATES control parameters for nutrient supplementation #7182

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

Closed
wants to merge 1 commit into from
+20 −3
Closed

Add call to set FATES control parameters for nutrient supplementation #7182

Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
23 changes: 20 additions & 3 deletions components/elm/src/main/elmfates_interfaceMod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -29,7 +29,7 @@ module ELMFatesInterfaceMod

! use ed_driver_interface, only:

! Used CLM Modules
! Used HLM Modules
use VegetationType , only : veg_pp
use shr_kind_mod , only : r8 => shr_kind_r8
use decompMod , only : bounds_type
Expand All @@ -38,6 +38,8 @@ module ELMFatesInterfaceMod
use CanopyStateType , only : canopystate_type
use TemperatureType , only : temperature_type
use EnergyFluxType , only : energyflux_type
use AllocationMod , only : suplnitro, suplnNon
use AllocationMod , only : suplphos, suplpNon

use SoilStateType , only : soilstate_type
use elm_varctl , only : iulog
Expand Down Expand Up @@ -438,7 +440,8 @@ subroutine ELMFatesGlobals2()
integer :: pass_hydro_solver
integer :: pass_radiation_model
integer :: pass_electron_transport_model

integer :: pass_nitrogen_supl
integer :: pass_phosporus_supl
! ----------------------------------------------------------------------------------
! FATES lightning definitions
! 1 : use a global constant lightning rate found in fates_params.
Expand Down Expand Up @@ -507,7 +510,21 @@ subroutine ELMFatesGlobals2()

call set_fates_ctrlparms('nitrogen_spec',ival=1)
call set_fates_ctrlparms('phosphorus_spec',ival=1)


! Pass the supplemental nutrient status flags
if (suplnitro == suplnNon) then
pass_nitrogen_supl = 0
else
pass_nitrogen_supl = 1
end if
if (suplphos == suplpNon) then
pass_phosporus_supl = 0
else
pass_phosporus_supl = 1
end if
call set_fates_ctrlparms('nitrogen_supl',ival=pass_nitrogen_supl)
call set_fates_ctrlparms('phosphorus_supl',ival=pass_phosporus_supl)

if(is_restart() .or. nsrest == nsrBranch) then
pass_is_restart = 1
else
Expand Down
Loading