From 9bace4f602937c386e2a4748362fbd8485959975 Mon Sep 17 00:00:00 2001
From: iwheel <iw43@st-andrews.ac.uk>
Date: Wed, 18 Dec 2024 16:54:45 +0000
Subject: [PATCH] comment out bedrock function as i'm not sure how useful it
 is.

---
 elmerice/Solvers/CalvingGlacierAdvance3D.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/elmerice/Solvers/CalvingGlacierAdvance3D.F90 b/elmerice/Solvers/CalvingGlacierAdvance3D.F90
index edbe11bb6a..cfe552d143 100644
--- a/elmerice/Solvers/CalvingGlacierAdvance3D.F90
+++ b/elmerice/Solvers/CalvingGlacierAdvance3D.F90
@@ -208,7 +208,8 @@ SUBROUTINE GlacierAdvance3D ( Model, Solver, dt, TransientSimulation )
    IF(.NOT. Found) CALL Info(SolverName, "Not moving bulk as default")
 
    MoveBase = ListGetLogical(Params,"Account for bedrock", Found, DefValue=.FALSE.)
-   IF(.NOT. Found) CALL Fatal(SolverName, "'Account for bedrock' not found")
+   ! still in testing
+   !IF(.NOT. Found) CALL Fatal(SolverName, "'Account for bedrock' not found")
 
    !Get the front line
    FrontMaskName = "Calving Front Mask"