From e55f7a943eb467ba60a816dcf5c0748b656e068d Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Mon, 21 Dec 2009 15:32:00 +0000
Subject: [PATCH] added isobc to parameters for new isostasy B/Cs

---
 src/module_definitions.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/module_definitions.f90 b/src/module_definitions.f90
index 0f64792b..52a532c2 100644
--- a/src/module_definitions.f90
+++ b/src/module_definitions.f90
@@ -200,6 +200,8 @@ module definitions
 ! this contains all sorts of parameters used in the code, such as flags, 
 ! convergence parameters, octree levels, ... pretty much all parameters
 ! that are read in the input file.
+! isobc is a boolean value used to turn on/off the use of the modified isostasy 
+! boundary conditions (dwhipp 12/09)
 
    type parameters 
       logical compute_qpgram
@@ -214,6 +216,7 @@ module definitions
       logical calculate_temp
       logical isostasy
       logical flexure
+      logical isobc
       integer nmpi
       integer levelcut
       integer levelapprox
-- 
GitLab