bake_par = make_bakepar()
constants = make_constants(use_tealeaves = FALSE)
enviro_par = make_enviropar(use_tealeaves = FALSE)
leaf_par = make_leafpar(use_tealeaves = FALSE)
leaf_par = bake(leaf_par, enviro_par, bake_par, constants)
# Or bake with piping (need library(magrittr))
# leaf_par %<>% bake(enviro_par, bake_par, constants)
enviro_par$T_air = leaf_par$T_leaf
pars = c(leaf_par, enviro_par, constants)
C_chl = set_units(350, umol/mol)
A_supply(C_chl, pars)
A_demand(C_chl, pars)
Run the code above in your browser using DataLab