Force the tree to desired level(s) from level_io(_min/_max) used for conversion to vtk output
subroutine resettree_convert use mod_global_parameters use mod_ghostcells_update use mod_coarsen_refine use mod_errest, only: forcedrefine_grid_io integer :: igrid,iigrid, my_levmin, my_levmax if(level_io > 0) then my_levmin = level_io my_levmax = level_io else my_levmin = max(1,level_io_min) my_levmax = min(refine_max_level,level_io_max) end if do while(levmin<my_levmin.or.levmax>my_levmax) call getbc(global_time,0.d0,ps,iwstart,nwgc) do iigrid=1,igridstail; igrid=igrids(iigrid); call forcedrefine_grid_io(igrid,ps(igrid)%w) end do call amr_coarsen_refine end do end subroutine resettree_convert