diff --git a/src/VTK/post.f90 b/src/VTK/post.f90
index 77826305fb1957bc68f904d42874562b687cf38d..38e3a31cdfd2e05b1810e013d289a9e115c664b1 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))