From aab64268017de5bb4e32016d114811ca74ec9ad6 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Tue, 16 Feb 2010 20:10:38 +0000
Subject: [PATCH] cleaned up reading in of params%levelmax_oct
---
src/VTK/post.f90 | 4 ----
1 file changed, 4 deletions(-)
diff --git a/src/VTK/post.f90 b/src/VTK/post.f90
index 0a8801b1..fe731590 100644
--- a/src/VTK/post.f90
+++ b/src/VTK/post.f90
@@ -365,10 +365,6 @@ end do
! 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
- !nb=int(1.d0/dxy)
- !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