Adjust monthly climo based on 4 parameters — forcing_adjust_mat • nwsrfsr

description

Usage

forcing_adjust_mat(
  climo,
  pars,
  ll = climo * ifelse(climo > 0, 0.9, 1.1),
  ul = climo * ifelse(climo > 0, 1.1, 0.9),
  return_climo = FALSE
)

Arguments

climo: blah
pars: blah
ll: blah
ul: blah
return_climo: blah

Value

stuff

Examples

climo <- rep(2, 12)
pars <- c(.5, 0, 10, 0)
forcing_adjust_mat(climo, pars)
#>  [1] -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2