C ** ORIGINAL CRU GRID
C ** nfld = number of CRU fields
C ** nlon = number of longitudes
C ** nlat = number of latitudes
C ** dlon = Resolution in the x-direction
C ** dlat = Resolution in the y-direction
C ** glon1 = Longitude position of the western most point
C ** glat1 = Latitude position of the southern most point
      integer nfld, ifld, nlon, nlat
      real glon1, glat1, dlat, dlon
      PARAMETER (nfld=5)
      PARAMETER (NLON=720, NLAT=360, dlat=0.5, dlon=0.5 )
      PARAMETER (GLON1=-179.75, GLAT1=-89.75)

c NAME OF THE CRU FILES ON THE RegCM GRID.
      character outfile(nfld)*50
      DATA (outfile(ifld),ifld=1,nfld)
     &   /'PRE2000.nc'
     &   ,'TMP2000.nc'
     &   ,'DTR2000.nc'
     &   ,'VAP2000.nc'
     &   ,'CLD2000.nc'/
c     &   ,'FRS1993.nc'
c     &   ,'TMN1993.nc'
c     &   ,'TMX1993.nc'
c     &   ,'WET1993.nc'/

c NAME OF THE GLOBAL INPUT CRU FILES
      character infile(nfld)*50
      DATA (infile(ifld),ifld=1,nfld)
     &   /'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUPRE.CDF'
     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUTMP.CDF'
     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUDTR.CDF'
     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUVAP.CDF'
     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUCLD.CDF'/
c     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUFRS.CDF'
c     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUTMN.CDF'
c     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUTMX.CDF'
c     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUWET.CDF'/