From 1593e29b5067f020bda86dd71fd23780fec80a6c Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 3 Feb 2010 03:25:20 +0000
Subject: [PATCH] Added new zisodisp structure
---
src/module_definitions.f90 | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/src/module_definitions.f90 b/src/module_definitions.f90
index 52a532c2..84ac25f9 100644
--- a/src/module_definitions.f90
+++ b/src/module_definitions.f90
@@ -325,6 +325,13 @@ module definitions
end interface
+!=====[ZISODISP================================================================
+! type ziso is used to store the isostatic deflection of the basal boundary
+! due to isostasy
+
+ type ziso
+ double precision,dimension(:,:),pointer::zisodisp
+ end type ziso
end module definitions
--
GitLab