      subroutine wrt_diags_pv_empty
      end
