Skip to content
GitLab
Commit 0fb9d7dc authored by David's avatar David
Browse files

docs: changes in RunModel.Supervisor example 

- Simplify date selection

Refs #100
parent 1eafa652
dev 180-write-a-vignette-with-exemple-of-use-of-runmodel-griwrmoutputsmodel 181-simulation-water-losses-on-routed-flows-based-on-gr-groundwater-exchange-function 183-createcaliboptions-crash-when-all-parameters-are-fixed master v0.7.0
2 merge requests!93Draft: Version 0.7.0,!47Resolve "Implementation of "Diversion" node"
Pipeline #40663 passed with stage
in 6 minutes and 57 seconds
Hide whitespace changes
Inline Side-by-side
Showing
with 12 additions and 12 deletions
+12 -12
man-examples/RunModel.Supervisor.R
+ 3
− 3
View file @ 0fb9d7dc
...@@ -95,9 +95,9 @@ funDamLogic <- factoryDamLogic( ...@@ -95,9 +95,9 @@ funDamLogic <- factoryDamLogic(
CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic) CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic)
# GRiwrmRunOptions object simulation of the hydrological year 2002-2003 # GRiwrmRunOptions object simulation of the hydrological year 2002-2003
IndPeriod_Run <- seq.int( IndPeriod_Run <- which(
which(IM_severn[[1]]$DatesR == as.POSIXct("2002-10-15", tz = "UTC")), DatesR >= as.POSIXct("2002-10-15", tz = "UTC") &
length.out = 365 DatesR <= as.POSIXct("2003-10-15", tz = "UTC")
) )
IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1) IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1)
RO_severn <- CreateRunOptions( RO_severn <- CreateRunOptions(
......
man/CreateController.Rd
+ 3
− 3
View file @ 0fb9d7dc
...@@ -140,9 +140,9 @@ funDamLogic <- factoryDamLogic( ...@@ -140,9 +140,9 @@ funDamLogic <- factoryDamLogic(
CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic) CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic)
# GRiwrmRunOptions object simulation of the hydrological year 2002-2003 # GRiwrmRunOptions object simulation of the hydrological year 2002-2003
IndPeriod_Run <- seq.int( IndPeriod_Run <- which(
which(IM_severn[[1]]$DatesR == as.POSIXct("2002-10-15", tz = "UTC")), DatesR >= as.POSIXct("2002-10-15", tz = "UTC") &
length.out = 365 DatesR <= as.POSIXct("2003-10-15", tz = "UTC")
) )
IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1) IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1)
RO_severn <- CreateRunOptions( RO_severn <- CreateRunOptions(
......
man/CreateSupervisor.Rd
+ 3
− 3
View file @ 0fb9d7dc
...@@ -122,9 +122,9 @@ funDamLogic <- factoryDamLogic( ...@@ -122,9 +122,9 @@ funDamLogic <- factoryDamLogic(
CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic) CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic)
# GRiwrmRunOptions object simulation of the hydrological year 2002-2003 # GRiwrmRunOptions object simulation of the hydrological year 2002-2003
IndPeriod_Run <- seq.int( IndPeriod_Run <- which(
which(IM_severn[[1]]$DatesR == as.POSIXct("2002-10-15", tz = "UTC")), DatesR >= as.POSIXct("2002-10-15", tz = "UTC") &
length.out = 365 DatesR <= as.POSIXct("2003-10-15", tz = "UTC")
) )
IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1) IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1)
RO_severn <- CreateRunOptions( RO_severn <- CreateRunOptions(
......
man/RunModel.Supervisor.Rd
+ 3
− 3
View file @ 0fb9d7dc
...@@ -119,9 +119,9 @@ funDamLogic <- factoryDamLogic( ...@@ -119,9 +119,9 @@ funDamLogic <- factoryDamLogic(
CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic) CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic)
# GRiwrmRunOptions object simulation of the hydrological year 2002-2003 # GRiwrmRunOptions object simulation of the hydrological year 2002-2003
IndPeriod_Run <- seq.int( IndPeriod_Run <- which(
which(IM_severn[[1]]$DatesR == as.POSIXct("2002-10-15", tz = "UTC")), DatesR >= as.POSIXct("2002-10-15", tz = "UTC") &
length.out = 365 DatesR <= as.POSIXct("2003-10-15", tz = "UTC")
) )
IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1) IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1)
RO_severn <- CreateRunOptions( RO_severn <- CreateRunOptions(
......
Supports Markdown
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