      subroutine wrt_bio_diag_avg_empty
      end
