init_diagnostics_transfer Subroutine

  subroutine init_diagnostics_transfer(gnostics)
    use kt_grids, only: naky, ntheta0, nx, ny
    use theta_grid, only: ntgrid
    use species, only: nspec
    use le_grids, only: init_le_grids, nlambda, negrid
    use gs2_transforms, only: init_transforms
    use gs2_layouts, only: init_dist_fn_layouts
    use diagnostics_config, only: diagnostics_type
    use mp, only: nproc, iproc
    implicit none

    type(diagnostics_type), intent(inout) :: gnostics
    logical :: accel_x

    if(.not. gnostics%write_zonal_transfer) return

    !> initialize zonal_transfer to zero
    gnostics%current_results%zonal_transfer = 0.0
    
    ! call every initiation routine we need:
    ! le_grids for integration, init_gs2 transforms to initiate fourier transforms routines, etc.
    
    ! calls init_theta_grid, init_kt_grids, init_gs2_layouts, and init_species for later use
    call init_le_grids
    ! will need to use fft routines
    call init_transforms(ntgrid, naky, ntheta0, nlambda, negrid, nspec, nx, ny, accel_x)
    call init_dist_fn_layouts(ntgrid, naky, ntheta0, nlambda, negrid, nspec, nproc, iproc)

  end subroutine init_diagnostics_transfer