c
c------------------------------------------------------------------
c Begin file /home/sting/foster/timegcm/mksrc/opendatv.f
c------------------------------------------------------------------
c
      subroutine opendatv
c
c Assign new file for data volume:
c (fort.xx must match ludatv set in blktime.f)
c
      istat = ishell('rm datvol')
      istat = ishell('assign -a datvol fort.3')
      if (istat.ne.0) then
        write(6,"('Openhist: error ',i3,' assigning datavol file')")
     +    istat
        stop 'assign'
      else
        write(6,"('opendatv: assigned new datavol file')")
      endif
      return
      end