up

PTsolvers · Nov 13, 2024 · 3306850 · 3306850
1 parent 70de2f1
commit 3306850
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/variational_stokes/Stokes2D.jl b/src/variational_stokes/Stokes2D.jl
@@ -163,7 +163,7 @@ function _solve_VS!(
             )
             # apply boundary conditions
             velocity2displacement!(stokes, dt)
-            free_surface_bcs!(stokes, flow_bcs, η, rheology, phase_ratios, dt, di)
+            # free_surface_bcs!(stokes, flow_bcs, η, rheology, phase_ratios, dt, di)
             flow_bcs!(stokes, flow_bcs)
             update_halo!(@velocity(stokes)...)
             # end

diff --git a/src/variational_stokes/VelocityKernels.jl b/src/variational_stokes/VelocityKernels.jl
@@ -73,7 +73,7 @@ end
                     -d_xa(P, ϕ.center) + d_xa(τxx, ϕ.center) + d_yi(τxy, ϕ.vertex) -
                     av_xa(ρgx, ϕ.center)
                 )
-            Vx[i + 1, j + 1] += R_Vx * ηdτ / av_xa(ητ, ϕ.center)
+            Vx[i + 1, j + 1] += R_Vx * ηdτ / av_xa(ητ)
         else
             Rx[i, j] = zero(T)
             Vx[i + 1, j + 1] = zero(T)
@@ -86,7 +86,7 @@ end
                 R_Vy =
                     -d_ya(P, ϕ.center) + d_ya(τyy, ϕ.center) + d_xi(τxy, ϕ.vertex) -
                     av_ya(ρgy, ϕ.center)
-            Vy[i + 1, j + 1] += R_Vy * ηdτ / av_ya(ητ, ϕ.center)
+            Vy[i + 1, j + 1] += R_Vy * ηdτ / av_ya(ητ)
         else
             Ry[i, j] = zero(T)
             Vy[i + 1, j + 1] = zero(T)