From f30407cd10e8bc4e2c2bdd241ef1e3ba93765bf3 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Tue, 16 Feb 2010 20:07:01 +0000
Subject: [PATCH] modified to read in params%levelmax_oct
---
src/VTK/post.f90 | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/VTK/post.f90 b/src/VTK/post.f90
index d84fa123..0a8801b1 100644
--- a/src/VTK/post.f90
+++ b/src/VTK/post.f90
@@ -363,10 +363,12 @@ end do
i=1,npcl)
! read isostasy basal displacement array - dwhipp 11/09
+ read (7) nb
+ dxy=1.d0/real(nb)
!dxy=abs(ov%x(1)-ov%x(2))
- dxy=1.d0/128.d0
+ !dxy=1.d0/128.d0
!nb=int(1.d0/dxy)
- nb=128
+ !nb=128
allocate(zisodisp(nb+1,nb+1),zisoslx(nb+1,nb+1))
if (1==1) read (7) ((zisodisp(i,j),j=1,nb+1),i=1,nb+1)
--
GitLab