init_energy_redistribute_local Subroutine

private subroutine init_energy_redistribute_local()

Constructs the redistribute mapping from the global g_lo data decomposition to the global e_lo decomposition

Arguments

None

Contents


Source Code

  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