c
c------------------------------------------------------------------
c Begin file /home/sting/foster/timegcm/mksrc/openhist.f
c------------------------------------------------------------------
c
      subroutine openhist
c
c Open and assign new file (in first slot of output) to contain history:
c
c Remove any pre-existing copy:
      istat = ishell('rm hist')
c
c Assign new file:
c (fortran unit number must match lutime in blktime.h)
c
      istat = ishell('assign -a hist fort.10')                        
      if (istat.ne.0) then
        write(6,"('Openhist: error ',i3,' assigning history file')")
     +    istat
        stop 'assign'
      else
        write(6,"('Assigned new timegcm history file')")
      endif
      return
      end