      subroutine wrt_bio_diag_empty
      end
