Create Input object

CW_create_input <- function(crop, 
                            DatesR,
                            ETo,
                            P,
                            soil_depth,
                            AWC) {

cw_input <- data.frame(
  DatesR,
  isCycle,
  P,
  Kc,
  Zr,
  ETc,
  TAW,
  RAW
)
attr(cw_input, "crop") <- crop
attr(cw_input, "soil_depth") <- soil_depth
attr(cw_input, "AWC") <- AWC
return(cw_input)
}