init_g2gf_redistribute Subroutine

  subroutine init_g2gf_redistribute
    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_gf_layouts
    use gs2_layouts, only: g_lo, gf_lo

    implicit none

    !Early exit if possible
    if (gfinit) return
    gfinit = .true.

    !Setup the le layout object (gf_lo)
    call init_gf_layouts (ntgrid, naky, ntheta0, negrid, nlambda, nspec, nproc, iproc)

    call setup_g2gf_redistribute(g_lo, gf_lo, g2gf)
  end subroutine init_g2gf_redistribute