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

modified to output params%levelmax_oct

parent b0db7bb6
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/write_global_output.f90
+ 1
− 0
View file @ e4adb7af
...@@ -185,6 +185,7 @@ if (iproc.eq.0) then ...@@ -185,6 +185,7 @@ if (iproc.eq.0) then
if (params%isobc) then if (params%isobc) then
! write isostasy basal displacement array - dwhipp 11/09 ! write isostasy basal displacement array - dwhipp 11/09
write (9) 2**params%levelmax_oct
write (9) ((zi%zisodisp(i,j),j=1,2**params%levelmax_oct+1),i=1,& write (9) ((zi%zisodisp(i,j),j=1,2**params%levelmax_oct+1),i=1,&
2**params%levelmax_oct+1) 2**params%levelmax_oct+1)
end if end if
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment