! source file: /raid23/csomes/UVic/2.9/c_n_isotopes/last_glacial_experiments/dipi/updates/sedio.F
       subroutine sedout (is, ie, js, je)

      return
      end
