init_diagnostics_antenna Subroutine

  subroutine init_diagnostics_antenna(gnostics)
    use diagnostics_config, only: diagnostics_type
    use kt_grids, only: ntheta0, naky
    use mp, only: proc0
    implicit none
    type(diagnostics_type), intent(in) :: gnostics
    if (gnostics%write_jext) then
       allocate (j_ext_hist(ntheta0, naky,0:gnostics%navg-1))
       j_ext_hist = 0.
    end if

    if (proc0.and.gnostics%ascii_files%write_to_jext) &
      write (gnostics%ascii_files%jext, *) &
      "Warning: the contents of this file differ &
      & to the contents generated by the old diagnostics module. In &
      & particular, the factor of 0.5 is no longer applied to then ky=0 &
      & mode."
  end subroutine init_diagnostics_antenna