c
      subroutine preset
      include "flxproc.h"
      include "ccm.h"
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,mxfproc
        ixtgcm(ip) = ip
      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')")
c
c fmnmxint(4,mxfproc) = floats for 'fldname', cmin, cmax, cint:
c fscale(2,mxfproc) = floats for 'fldname', scale_factor (passed to conpack)
c
      do i=1,mxfproc
        fmnmxint(:,i) = spval
        fscale(:,i) = 1.
        scalefac(i) = 1.
      enddo
c
c Location names for ipltutvert:
c
      do i=1,mxlocs
        call clearstr(utvert_locname(i))
      enddo
      return
      end