c    CRU monthly land precipitation and air temperature
c    http://www.cru.uea.ac.uk/~timm/grid/CRU_TS_2_1.html

c    1) description of the data
c        pre(i,j): precipitation
c        tmp(i,j): air temperature
c    2) coverage:
c        89.5S  --> 89.5N; 
c        179.75W --> 179.75E
c        January 1901 --> December 2002
c    3) resolution:
c        0.5 deg lat x 0.5 deg lon
c    4) missing values: -9999.0
c    5) example program: read one year data

      parameter (lons=720,lats=360, mons=12)
      real*4  pre(lons,lats),tmp(lons,lats)

      open(21,file='data/cru_month_2002.dat',
     &  form='unformatted',access='sequential')

      do 180  k=1,mons
      read(21) ((pre(i,j),i=1,lons),j=1,lats)
      read(21) ((tmp(i,j),i=1,lons),j=1,lats)

      write(6,*) pre(240,240)
      write(6,*) tmp(240,240)
 180  continue

       stop
       end

c       Contact:
c       Yongsheng Zhang: yshzhang@hawaii.edu
c       March 24, 2006