PROGRAM  MAIN
      
      real AF(80,8),lat(80),lon(80)
C AF(80,1) --> AF(80,8): TAIR, SPFH, PSFC, UWIND, VWIND, LWDN, SOLDN, PRCP      
C     DRIVER STEP 1
      data lat/
     1  34.6875,30.6875,35.3125,34.8125,39.8125,38.3125,38.5625,39.6875,
     2  41.5625,37.8125,39.3125,39.0625,37.4375,37.0625,31.4375,30.5625,
     3  30.0625,29.9375,32.4375,39.3125,37.1875,38.8125,32.3125,32.3125,
     4  35.4375,46.8125,40.9375,41.0625,41.3125,40.4375,35.0625,35.6875,
     5  42.8125,42.1875,43.0625,43.0625,42.0625,35.4375,36.1875,40.6875,
     6  41.8125,40.1875,41.1875,40.3125,39.5625,41.1875,45.4375,44.4375,
     7  44.0625,43.5625,35.1875,30.3125,29.9375,33.6875,36.4375,35.0625,
     8  35.8125,35.0625,36.0625,29.5625,33.9375,32.4375,25.9375,27.8125,
     9  32.8125,31.8125,32.9375,29.6875,31.1875,31.9375,31.3125,28.8125,
     1  31.5625,38.1875,37.3125,37.3125,37.3125,38.9375,39.4375,41.1875/
      data lon/
     1 -86.5625, -88.3125, -94.3125, -92.3125,-104.8125,-104.5625,
     2 -77.0625, -75.5625, -93.6875, -99.9375,-101.6875, -95.6875,
     3 -97.3125, -88.8125, -92.3125, -91.1875, -93.1875, -90.3125,
     4 -93.8125, -94.6875, -93.4375, -90.3125, -90.0625, -88.8125,
     5 -82.5625,-100.8125, -98.3125,-100.6875, -95.9375, -74.0625,
     6-106.5625,-105.1875, -73.8125, -76.9375, -77.8125, -76.0625,
     7 -75.5625, -97.5625, -95.9375, -75.4375, -78.6875, -76.8125,
     8 -76.5625, -78.3125, -75.1875, -75.4375, -98.4375,-100.3125,
     9-103.0625, -96.8125,-102.0625, -97.6875, -95.3125,-101.8125,
     1 -82.4375, -85.1875, -83.9375, -89.9375, -86.6875, -98.4375,
     2 -98.5625, -99.6875, -97.4375, -97.5625, -96.8125,-106.4375,
     3 -97.0625, -95.3125, -94.8125,-102.1875,-100.5625, -96.9375,
     4 -97.1875, -78.4375, -79.1875, -77.1875, -79.9375, -79.8125,
     5 -77.9375,-104.8125/
      open(36,file='ldas_forcing.1948',form='unformatted')
        do m=1,24*366
        read(36) AF
C        write(36) AF
        enddo
      END