Skip to content

Commit

Permalink
up
Browse files Browse the repository at this point in the history
  • Loading branch information
albert-de-montserrat committed Jul 8, 2024
1 parent 909f308 commit 4cf2aab
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 4 deletions.
6 changes: 4 additions & 2 deletions Khefalonia2D.jl
Original file line number Diff line number Diff line change
Expand Up @@ -131,7 +131,7 @@ function main(li, origin, phases_GMG, igg; nx=16, ny=16, figdir="figs2D", do_vtk

# PT coefficients for thermal diffusion
pt_thermal = PTThermalCoeffs(
backend, rheology, phase_ratios, args0, dt, ni, di, li; ϵ=1e-5, CFL=0.5 / 2
backend, rheology, phase_ratios, args0, dt, ni, di, li; ϵ=1e-5, CFL=1e-2 / 2
)

# Boundary conditions
Expand Down Expand Up @@ -224,7 +224,7 @@ function main(li, origin, phases_GMG, igg; nx=16, ny=16, figdir="figs2D", do_vtk
iterMax = 50e3,
nout = 1e3,
viscosity_cutoff = viscosity_cutoff,
free_surface = false,
free_surface = true,
viscosity_relaxation = 1e-2
)
);
Expand Down Expand Up @@ -285,6 +285,8 @@ function main(li, origin, phases_GMG, igg; nx=16, ny=16, figdir="figs2D", do_vtk
data_v = (;
T = Array(T_buffer),
τII = Array(stokes.τ.II),
τxx = Array(stokes.τ.xx),
τyy = Array(stokes.τ.yy),
εII = Array(stokes.ε.II),
Vx = Array(Vx_v),
Vy = Array(Vy_v),
Expand Down
2 changes: 1 addition & 1 deletion KhefaloniaRheology.jl
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@ function init_rheologies(; is_plastic = true)
# β_sublithospheric_mantle = inv(get_Kb(el_sublithospheric_mantle))

# Physical properties using GeoParams ----------------
η_reg = 1e16
η_reg = 1e17
cohesion = 15e6
friction = 20
pl_crust = DruckerPrager_regularised(; C = cohesion, ϕ=friction, η_vp=η_reg, Ψ=0.0) # non-regularized plasticity
Expand Down
2 changes: 1 addition & 1 deletion KhefaloniaSetup.jl
Original file line number Diff line number Diff line change
Expand Up @@ -83,7 +83,7 @@ function Khefalonia__setup(N)
# @. Temp = max(Temp, 20)
Grid = addfield(Grid,(; Phases, Temp))

li = abs(last(x)-first(x)), abs(last(z)-first(z))
li = (abs(last(x)-first(x)), abs(last(z)-first(z))) .* 1e3
origin = x[1], z[1]

ph = Phases
Expand Down

0 comments on commit 4cf2aab

Please sign in to comment.