Refactored a piece of code within a function which is going

to be useful in other scenarios

src/OctreeDistributedDiscreteModels.jl

@@ -1230,11 +1230,9 @@ function Gridap.Adaptivity.refine(model::OctreeDistributedDiscreteModel{Dc,Dp};
    end
 end
 
-function Gridap.Adaptivity.adapt(model::OctreeDistributedDiscreteModel{Dc,Dp}, 
-                                  refinement_and_coarsening_flags::MPIArray{<:Vector};
-                                  parts=nothing) where {Dc,Dp}
 
-  Gridap.Helpers.@notimplementedif parts!=nothing
+function _refine_coarsen_balance!(model::OctreeDistributedDiscreteModel{Dc,Dp}, 
+                                  refinement_and_coarsening_flags::MPIArray{<:Vector}) where {Dc,Dp}
 
   # Variables which are updated accross calls to init_fn_callback_2d
   current_quadrant_index_within_tree = Cint(0)
@@ -1430,6 +1428,16 @@ function Gridap.Adaptivity.adapt(model::OctreeDistributedDiscreteModel{Dc,Dp},
   pXest_coarsen!(Val{Dc}, ptr_new_pXest, coarsen_fn_callback_c)
   pXest_balance!(Val{Dc}, ptr_new_pXest)
   pXest_update_flags!(Val{Dc},model.ptr_pXest,ptr_new_pXest)
+  ptr_new_pXest
+end 
+
+function Gridap.Adaptivity.adapt(model::OctreeDistributedDiscreteModel{Dc,Dp}, 
+                                 refinement_and_coarsening_flags::MPIArray{<:Vector};
+                                 parts=nothing) where {Dc,Dp}
+
+  Gridap.Helpers.@notimplementedif parts!=nothing
+
+  ptr_new_pXest = _refine_coarsen_balance!(model, refinement_and_coarsening_flags)
 
   # Extract ghost and lnodes
   ptr_pXest_ghost  = setup_pXest_ghost(Val{Dc}, ptr_new_pXest)