Skip to content
Snippets Groups Projects

Refactors the configuration of freeze curves in heat conduction and soil types

10 files
+ 99
66
Compare changes
  • Side-by-side
  • Inline
Files
10
@@ -14,15 +14,14 @@ grid = CryoGrid.Presets.DefaultGrid_5cm
_, tempprofile = CryoGrid.Presets.SamoylovDefault
initT = initializer(:T, tempprofile)
initsat = initializer(:sat, (l,p,state) -> state.sat .= l.para.sat)
heatop = Heat.Diffusion(:H)
# @Stratigraphy macro lets us list multiple subsurface layers
strat = @Stratigraphy(
-2.0u"m" => Top(TemperatureGradient(tair), Rainfall(pr)),
0.0u"m" => :topsoil1 => Soil(HomogeneousMixture(por=0.80,sat=0.7,org=0.75), heat=HeatBalance(heatop), water=WaterBalance(BucketScheme())),
0.1u"m" => :topsoil2 => Soil(HomogeneousMixture(por=0.80,sat=0.8,org=0.25), heat=HeatBalance(heatop), water=WaterBalance(BucketScheme())),
0.4u"m" => :sediment1 => Soil(HomogeneousMixture(por=0.55,sat=0.9,org=0.25), heat=HeatBalance(heatop), water=WaterBalance(BucketScheme())),
3.0u"m" => :sediment2 => Soil(HomogeneousMixture(por=0.50,sat=1.0,org=0.0), heat=HeatBalance(heatop), water=WaterBalance(BucketScheme())),
10.0u"m" => :sediment3 => Soil(HomogeneousMixture(por=0.30,sat=1.0,org=0.0), heat=HeatBalance(heatop), water=WaterBalance(BucketScheme())),
0.0u"m" => :topsoil1 => Soil(HomogeneousMixture(por=0.80,sat=0.7,org=0.75), heat=HeatBalance(), water=WaterBalance(BucketScheme())),
0.1u"m" => :topsoil2 => Soil(HomogeneousMixture(por=0.80,sat=0.8,org=0.25), heat=HeatBalance(), water=WaterBalance(BucketScheme())),
0.4u"m" => :sediment1 => Soil(HomogeneousMixture(por=0.55,sat=0.9,org=0.25), heat=HeatBalance(), water=WaterBalance(BucketScheme())),
3.0u"m" => :sediment2 => Soil(HomogeneousMixture(por=0.50,sat=1.0,org=0.0), heat=HeatBalance(), water=WaterBalance(BucketScheme())),
10.0u"m" => :sediment3 => Soil(HomogeneousMixture(por=0.30,sat=1.0,org=0.0), heat=HeatBalance(), water=WaterBalance(BucketScheme())),
1000.0u"m" => Bottom(GeothermalHeatFlux(0.053u"W/m^2"))
);
tile = Tile(strat, grid, initT, initsat);
Loading