      subroutine wrt_diags_ek_empty
      end
