c     MSU observed air temperature
c     http://www.nsstc.uah.edu/data/msu

c    1) description of the data
c        tlt(i,j): lower  troposphere  temperature (C)
c        tmt(i,j): middle troposphere  temperature (C)
c        tls(i,j): lower  stratosphere temperature (C)

c    2) coverage:
c        88.75S  --> 88.75N; 
c        178.75W --> 178.75E
c        January 1979 --> February 2006
c    3) resolution:
c        2.5 deg lat x 2.5 deg lon

c    4) missing values: -99.99

c    5) example program


      parameter (lons=144,lats=72, mons=326)
      real*4  tlt(lons,lats),tmt(lons,lats),tls(lons,lats)

      open(21,file='msu_month.dat',
     &  form='unformatted',access='sequential')

      do 180  k=1,mons
      read(21) ((tlt(i,j),i=1,lons),j=1,lats)
      read(21) ((tmt(i,j),i=1,lons),j=1,lats)
      read(21) ((tls(i,j),i=1,lons),j=1,lats)

      write(6,*) tlt(120,42)
      write(6,*) tmt(120,42)
      write(6,*) tls(120,42)
 180  continue

       stop
       end

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