Skip to content
Snippets Groups Projects
Commit aab64268 authored by Dave Whipp's avatar Dave Whipp
Browse files

cleaned up reading in of params%levelmax_oct

parent f30407cd
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment