Create Initial State

#' CropWat model state initiation
#'
#' @param cw_input Model input
#' @param Dr  Initial root zone depletion (-)
#' @return A [list] with items:
#' - `Dr`: Root zone depletion (-)
CW_create_state <- function(Dr, 
                            cw_input = NULL, 
                            iTS = 1, 
                            isCycle = cw_input$isCycle[iTS], 
                            TAW = cw_input$isCycle[iTS]) {
  X <- list(
    Dr = Dr, 
    isCycle = isCycle,
    TAW = TAW
  )
}