c      AIRS level-3 daily standard retrieval product (Without HSB)

c    coverage:
c        89.5S  --> 89.5N;
c        179.5W --> 179.5E
c       1 Jan 2003 --> 31 Dec 2005
c    resolution:
c        1.0 deg lat x 1.0 deg lon
c    missing values: -9999.0




        program readme
        parameter (lons=360,lats=180)
        dimension dd(lons,lats,24),levs(7)

        open(8,file='AIRS.2004.11.15.dat',
     &  form='unformatted',access='sequential')
c**************************************************************
        data levs/12,1,12,1,1,24,1/
c**************************************************************
       do 120 k1=1,2   !k1=1 ascending; k1=2 descending 
       do 140 k2=1,7   ! seven parameters shown in data.ctl

c      levels & data name
c      12      Water vapor mass mixing ratio (gm/kg)
c       1      Outgoing longwave radiation flux (W/M**2)
c      12      Relative humidity profile (percent)
c       1      Surface Air temperature (K)
c       1      Surface skin temperature (K)
c      24      Air temperature: (K)
c       1      Precipitable water (kg/M**2)

c      Read  parameter one by one shown above
       do L=1,levs(k2)
       read(8) ((dd(i,j,L),i=1,lons),j=1,lats)
       enddo

  140  continue
  120  continue
c**************************************************************

         stop
         end