Add crop state init for AquaCrop

Currently errors with an error from inside AquaCrop.jl

Project.toml

@@ -4,6 +4,7 @@ authors = ["Daniel Vedder <daniel.vedder@idiv.de>"]
 version = "0.5.5"
 
 [deps]
+AquaCrop = "8f16cebd-c0b4-44a3-857f-c101f083256c"
 ArgParse = "c7e460c6-2fb9-53a9-8c5b-16f535851c63"
 CSV = "336ed68f-0bac-5ca0-87d4-7b16caf5d00b"
 CairoMakie = "13f3f980-e62b-5c42-98c6-ff1f3baf88f0"

src/crop/aquacrop.jl

+import AquaCrop
+
 struct AquaCropType
     name::String
     group::String
@@ -9,7 +11,17 @@ cropname(ct::AquaCropType) = ct.name
 
 mutable struct AquaCropState
     croptype::AquaCropType
-    height::Length{Float64}
+    height::Length{Float64}  # TODO: remove height field, supply from cropstate
+    cropstate::AquaCrop.AquaCropField
+
+    function AquaCropState(croptype::AquaCropType, height::Length{Float64}=0.0cm)
+        ac_parentdir = "./tmp-aquacrop-param"  # TODO
+        # TODO: runtype can be :Fortran, :Julia or :Persefone in the
+        # future, so then use :Persefone
+        ac_runtype = :Julia
+        cropstate = AquaCrop.AquaCropField(ac_parentdir, ac_runtype)
+        return new(croptype, height, cropstate)
+    end
 end
 
 croptype(cs::AquaCropState) = cs.croptype

src/crop/cropmodels.jl

@@ -82,7 +82,7 @@ function makecropstate(model::SimulationModel)
             0.0m
         )
     elseif @param(crop.cropmodel) == "aquacrop"
-        cs = AquaCropState(model.crops["natural grass"], 0.0m)
+        cs = AquaCropState(model.crops["natural grass"], 0.0cm)
     else
         Base.error("Unhandled crop model '$(@param(crop.cropmodel))' in makecropstate().")
     end

test/crop_tests.jl

@@ -58,7 +58,7 @@ end
     id = 0
     pixels = [(0, 0)]
     farmer = 0
-    fp = FarmPlot(id, pixels, farmer, Ps.AquaCropState(ct, 0.0cm))
+    fp = FarmPlot(id, pixels, farmer, Ps.AquaCropState(ct))
     @test fp isa FarmPlot
     @test fp isa FarmPlot{Ps.AquaCropState}
     @test croptype(fp) isa Ps.AquaCropType