From b933bf0b0f0a3138ebcdd519397b793a13b9c78d Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Sat, 30 Jan 2010 03:53:24 +0000
Subject: [PATCH] Fixed typo
---
src/VTK/post.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/VTK/post.f90 b/src/VTK/post.f90
index 77826305..38e3a31c 100644
--- a/src/VTK/post.f90
+++ b/src/VTK/post.f90
@@ -360,7 +360,7 @@ end do
dumpdp, &
dumpdp, &
dumpi, &
- i=1,cl%npcl)
+ i=1,npcl)
! read isostasy basal displacement array - dwhipp 11/09
dxy=abs(ov%x(1)-ov%x(2))
--
GitLab