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

modified to read in params%levelmax_oct

parent e4adb7af
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
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