      subroutine wrt_abl_avg_empty
      return
      end
