From 4e7a850c4458c1df24a0f396dab82a6bd1f996b4 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Thu, 24 Dec 2009 01:11:36 +0000
Subject: [PATCH] fixed typo
---
src/define_isostasy_bc.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/define_isostasy_bc.f90 b/src/define_isostasy_bc.f90
index 3f8ba11f..d9708bf1 100644
--- a/src/define_isostasy_bc.f90
+++ b/src/define_isostasy_bc.f90
@@ -105,7 +105,7 @@ else
! Modify velocities
if (osolve%z(i).lt.eps) then
- if (osolve%x(i).le.x0) then
+ if (osolve%x(i).le.x0(i)) then
if (spu.le.1.d0-eps) then ! No change in B/Cs
zdisp=osolve%u(i)*sin(atan(zsl)) ! Negative for negative slope
vinit=(osolve%u(i)**2.d0+osolve%w(i)**2.d0)**0.5d0 ! Incoming velocity vector magnitude
--
GitLab