Commit 54bb642b authored by Cynthia Crowley's avatar Cynthia Crowley

Add Snowpack from state to monthly results

parent cc8c1e86
......@@ -48,6 +48,7 @@ make_results <- function(
Runoff_mm,
Sa,
Sm,
Snowpack,
T,
Ws,
dWdt,
......@@ -69,6 +70,7 @@ make_results <- function(
Runoff_mm= Runoff_mm,
Sa= Sa,
Sm= Sm,
Snowpack=Snowpack,
T= T,
Ws= Ws,
dWdt= dWdt
......
......@@ -103,6 +103,7 @@ run <- function(static, state, forcing) {
Runoff_m3= R*area_m2/1000,
Sa= Sa,
Sm= ifelse(is.na(Sa), NA, Sm),
Snowpack= state$Snowpack,
T= forcing$T,
Ws= Ws_ave
)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment