      subroutine wrt_diags_vrt_avg_empty
      end
