write_lorentzian Subroutine

  subroutine write_lorentzian(gnostics)
    use antenna, only: antenna_w
    use diagnostics_config, only: diagnostics_type
    use gs2_io, only: starts, netcdf_write_complex, complex_dim, time_dim
    use mp, only: proc0
    implicit none
    type(diagnostics_type), intent(in) :: gnostics
    if (.not. proc0) return
    call netcdf_write_complex(gnostics%file_id, "antenna_w", antenna_w(), &
         dim_names=[complex_dim, time_dim], start=starts(2, gnostics%nout))
  end subroutine write_lorentzian