c
      subroutine preset
      include "flxproc.h"
      include "ccm.h"
c
c
c tgcm geographic grid: 
c
      do i=1,imx
        gcmlon(i) = glon1+(i-1)*dlon
      enddo
      do j=1,jmx
        gcmlat(j) = glat1+(j-1)*dlat
      enddo
c
c Field indices:
c
      do ip=1,mxflds
        ixtgcm(ip) = ip
        ifields(ip) = ispval	! will default in getinp if no values read
        ifproc(ip) = 0
      enddo
      do ip=1,mxflds
        ixfhist(ip) = 0
      enddo
c
      call clearstr(ccmlsd)
      do i=1,mxhvols
        call clearstr(histvols(i))
      enddo
      ivol = 0
c
c Model times (no default):
c
      do i=1,mxtms
        mtimes(:,i) = ispval
      enddo
c
c temp dir
c
      call clearstr(tmpdir)
      write(tmpdir,"('/usr/tmp/TIGCM')")
      return
      end