From e4adb7afcf689409e1487b18ee63d2bd23a01c0a Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Tue, 16 Feb 2010 20:06:30 +0000
Subject: [PATCH] modified to output params%levelmax_oct
---
src/write_global_output.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/write_global_output.f90 b/src/write_global_output.f90
index 15dcf6af..148dba7c 100644
--- a/src/write_global_output.f90
+++ b/src/write_global_output.f90
@@ -185,6 +185,7 @@ if (iproc.eq.0) then
if (params%isobc) then
! write isostasy basal displacement array - dwhipp 11/09
+ write (9) 2**params%levelmax_oct
write (9) ((zi%zisodisp(i,j),j=1,2**params%levelmax_oct+1),i=1,&
2**params%levelmax_oct+1)
end if
--
GitLab