Constructs the redistribute mapping from the global g_lo data decomposition to the global e_lo decomposition
subroutine init_energy_redistribute_local
use mp, only: nproc, iproc
use species, only: nspec
use theta_grid, only: ntgrid
use kt_grids, only: naky,ntheta0
use gs2_layouts, only: init_energy_layouts
use gs2_layouts, only: g_lo, e_lo
implicit none
!Early exit if possible
if (einit) return
einit = .true.
!Initialise e_lo layout object
call init_energy_layouts &
(ntgrid, naky, ntheta0, nlambda, nspec, nproc, iproc)
call setup_energy_redistribute_local(g_lo, e_lo, energy_map)
end subroutine init_energy_redistribute_local