c    Data title: AMSR-E/Aqua Level-2 Twice Daily Surface Soil Moisture 
c       http://nsidc.org/data/ae_land3.html

c    coverage:
c        85.312S  --> 85.312N;
c        179.870W --> 179.870E
c       18 June 2002 --> present
c    resolution:
c        ~0.25 deg latitude x ~0.25 deg longitude
c    missing values: -9999.0

c     example program

      parameter (lons=1383,lats=586)
      real*4  sm_a(lons,lats),vwc_a(lons,lats)
      real*4  sm_d(lons,lats),vwc_d(lons,lats)
      
      open(21,file='2006/20060101.dat',
     &       form='unformatted',access='sequential')

      read(21) ((sm_a(i,j), i=1,lons),j=1,lats)
      read(21) ((vwc_a(i,j),i=1,lons),j=1,lats)
      read(21) ((sm_d(i,j), i=1,lons),j=1,lats)
      read(21) ((vwc_d(i,j),i=1,lons),j=1,lats)

c     sm_a(i,j): Soil moisture, Ascending Track(g/cm**3)
c     vwc_a(i,j): vegetation water content,Ascending Track(kg/m**2)
c     sm_d(i,j): Soil moisture,Descending Track(g/cm**3)
c     vwc_d(i,j): vegetation water content,Descending Track(kg/m**2)


      write(6,*) sm_a(500,300)
      write(6,*) vwc_a(500,300)
      write(6,*) sm_d(500,300)
      write(6,*) vwc_d(500,300)

       stop
       end

c       Contact:
c       Yongsheng Zhang: yshzhang@hawaii.edu
c       March 20, 2007