remove dead argurment

PTsolvers · Apr 9, 2024 · 103e20f · 103e20f
1 parent 1538b66
commit 103e20f
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 9 deletions.
diff --git a/src/rheology/StressUpdate.jl b/src/rheology/StressUpdate.jl
@@ -1,7 +1,6 @@
 # inner kernel to compute the plastic stress update within Pseudo-Transient stress continuation
 function _compute_τ_nonlinear!(
     τ::NTuple{N1,T},
-    τII,
     τ_old::NTuple{N1,T},
     ε::NTuple{N1,T},
     ε_pl::NTuple{N1,T},

diff --git a/src/stokes/Stokes2D.jl b/src/stokes/Stokes2D.jl
@@ -393,7 +393,6 @@ function JustRelax.solve!(
 
             @parallel (@idx ni) compute_τ_nonlinear!(
                 @tensor_center(stokes.τ),
-                stokes.τ.II,
                 @tensor(stokes.τ_o),
                 @strain(stokes),
                 @tensor_center(stokes.ε_pl),
@@ -605,7 +604,6 @@ function JustRelax.solve!(
 
             @parallel (@idx ni) compute_τ_nonlinear!(
                 @tensor_center(stokes.τ),
-                stokes.τ.II,
                 @tensor_center(stokes.τ_o),
                 @strain(stokes),
                 @tensor_center(stokes.ε_pl),

diff --git a/src/stokes/Stokes3D.jl b/src/stokes/Stokes3D.jl
@@ -282,7 +282,6 @@ function JustRelax.solve!(
 
             @parallel (@idx ni) compute_τ_nonlinear!(
                 @tensor_center(stokes.τ),
-                stokes.τ.II,
                 @tensor(stokes.τ_o),
                 @strain(stokes),
                 @tensor_center(stokes.ε_pl),
@@ -473,7 +472,6 @@ function JustRelax.solve!(
             # if !cte_viscosity
             @parallel (@idx ni) compute_τ_nonlinear!(
                 @tensor_center(stokes.τ),
-                stokes.τ.II,
                 @tensor_center(stokes.τ_o),
                 @strain(stokes),
                 @tensor_center(stokes.ε_pl),

diff --git a/src/stokes/StressKernels.jl b/src/stokes/StressKernels.jl
@@ -376,7 +376,6 @@ end
 
 @parallel_indices (I...) function compute_τ_nonlinear!(
     τ,     # @ centers
-    τII,   # @ centers
     τ_old, # @ centers
     ε,     # @ vertices
     ε_pl,  # @ centers
@@ -405,7 +404,7 @@ end
     plastic_parameters = (; is_pl, C, sinϕ, cosϕ, η_reg, volume)
 
     _compute_τ_nonlinear!(
-        τ, τII, τ_old, ε, ε_pl, P, ηij, η_vep, λ, dτ_r, _Gdt, plastic_parameters, I...
+        τ, τ_old, ε, ε_pl, P, ηij, η_vep, λ, dτ_r, _Gdt, plastic_parameters, I...
     )
 
     # augmented pressure with plastic volumetric strain over pressure
@@ -417,7 +416,6 @@ end
 # multi phase visco-elasto-plastic flow, where phases are defined in the cell center
 @parallel_indices (I...) function compute_τ_nonlinear!(
     τ,      # @ centers
-    τII,    # @ centers
     τ_old,  # @ centers
     ε,      # @ vertices
     ε_pl,   # @ centers
@@ -447,7 +445,7 @@ end
     plastic_parameters = (; is_pl, C, sinϕ, cosϕ, η_reg, volume)
 
     _compute_τ_nonlinear!(
-        τ, τII, τ_old, ε, ε_pl, P, ηij, η_vep, λ, dτ_r, _Gdt, plastic_parameters, I...
+        τ, τ_old, ε, ε_pl, P, ηij, η_vep, λ, dτ_r, _Gdt, plastic_parameters, I...
     )
     # augmented pressure with plastic volumetric strain over pressure
     @inbounds θ[I...] = P[I...] + (isinf(K) ? 0.0 : K * dt * λ[I...] * sinψ)