SoilR (version 1.1-23)

YassoModel: Implementation of the Yasso model.

Description

This function creates a model for seven pools as described in Liski et al. (2005). Model not yet implemented due to lack of data in original publication: values of vector p not completely described in paper. 0.1 was assumed.

Usage

YassoModel(t, ks = c(a_fwl = 0.54, a_cwl = 0.03, k_ext = 0.48,  k_cel = 0.3, k_lig = 0.22, k_hum1 = 0.012, k_hum2 = 0.0012),  p = c(fwl_ext = 0.1, cwl_ext = 0.1, fwl_cel = 0.1, cwl_cel = 0.1,  fwl_lig = 0.1, cwl_lig = 0.1, pext = 0.05, pcel = 0.24,  plig = 0.77, phum1 = 0.51), C0, In = c(u_fwl = 0.0758,  u_cwl = 0.0866, u_nwl_cnwl_ext = 0.251 * 0.3, u_nwl_cnwl_cel = 0.251 *  0.3, u_nwl_cnwl_lig = 0.251 * 0.3, 0, 0), xi = 1,  solver = deSolve.lsoda.wrapper, pass = FALSE)

Arguments

t

A vector containing the points in time where the solution is sought.

ks

A vector of lenght 7 containing the values of the exposure and decomposition rates for each pool.

p

A vector of containing transfer coefficients among different pools.

C0

A vector containing the initial amount of carbon for the 7 pools. The length of this vector must be 7.

In

A vector of constatn litter inputs.

xi

A scalar or data.frame object specifying the external (environmental and/or edaphic) effects on decomposition rates.

solver

A function that solves the system of ODEs. This can be euler or ode or any other user provided function with the same interface.

pass

if TRUE forces the constructor to create the model even if it is invalid

Value

References

Liski, J., Palosuo, T., Peltoniemi, M., and Sievanen, R. (2005). Carbon and decomposition model Yasso for forest soils. Ecological Modelling, 189:168-182.

See Also

ThreepParallelModel, ThreepSeriesModel

Examples

years=seq(0,500,0.5) 
C0=rep(100,7)

Ex1=YassoModel(t=years,C0=C0)
Ct=getC(Ex1)
Rt=getReleaseFlux(Ex1)

plotCPool(years,Ct,col=1:7,xlab="years",ylab="C pool",ylim=c(0,200))
legend("topright",c("fwl","cwl","ext","cel","lig","hum1","hum2"),lty=1,col=1:7,bty="n")

plotCPool(years,Rt,col=1:7,xlab="years",ylab="Respiration",ylim=c(0,50))
legend("topright",c("fwl","cwl","ext","cel","lig","hum1","hum2"),lty=1,col=1:7,bty="n")