diff --git a/src/VTK/post.f90 b/src/VTK/post.f90 index d84fa123a06764fd93324c04e7f3f1a6b708e74c..0a8801b1ee856087d8be56baa3bde61964286d4a 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)