      subroutine wrt_diag_avg_empty
      end
