EstimateNPP: Estimate NPP

In drGeorgeXenakis/fr3PGD: The Physiological Principles for Predicting Growth Model (3PG)

Usage

EstimateNPP(state, parms)

Arguments

state
parms

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (state, parms) 
{
    alpha <- parms[["alpha"]]
    gDM_mol <- parms[["gDM_mol"]]
    Y <- parms[["Y"]]
    phi.pa <- state[["phi.pa"]]
    fT <- state[["fT"]]
    fF <- state[["fF"]]
    fCalpha <- state[["fCalpha"]]
    fN <- state[["fN"]]
    PhysMod <- state[["PhysMod"]]
    alphaC <- alpha * fT * fF * fCalpha * fN * PhysMod
    GPP <- alphaC * gDM_mol * phi.pa/100
    NPP <- Y * GPP
    state[c("alphaC", "GPP", "NPP")] <- c(alphaC, GPP, NPP)
    return(state)
  }

drGeorgeXenakis/fr3PGD documentation built on June 3, 2020, 6:10 a.m.