c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/us76atm_blk.f,v 2.22 2000/08/30 16:38:09 flittner Exp $
      blockdata us76atm
c
      include 'us76atm.cmn'
c
c load the us76 atmo
c
c altitude (km)

      data z76/
     & 81.00, 80.00, 79.00, 78.00, 77.00,
     & 76.00, 75.00, 74.00, 73.00, 72.00,
     & 71.00, 70.00, 69.00, 68.00, 67.00,
     & 66.00, 65.00, 64.00, 63.00, 62.00,
     & 61.00, 60.00, 59.00, 58.00, 57.00,
     & 56.00, 55.00, 54.00, 53.00, 52.00,
     & 51.00, 50.00, 49.00, 48.00, 47.00,
     & 46.00, 45.00, 44.00, 43.00, 42.00,
     & 41.00, 40.00, 39.00, 38.00, 37.00,
     & 36.00, 35.00, 34.00, 33.00, 32.00,
     & 31.00, 30.00, 29.00, 28.00, 27.00,
     & 26.00, 25.00, 24.00, 23.00, 22.00,
     & 21.00, 20.00, 19.00, 18.00, 17.00,
     & 16.00, 15.00, 14.00, 13.00, 12.00,
     & 11.00, 10.00,  9.00,  8.00,  7.00,
     &  6.00,  5.00,  4.00,  3.00,  2.00,
     &  1.00,  0.00/
c pressure [ln(pres(atm))]

      data p76/
     &-1.16435E+01,-1.14750E+01,-1.13080E+01,-1.11427E+01,
     &-1.09788E+01,-1.08164E+01,-1.06556E+01,-1.04962E+01,
     &-1.03382E+01,-1.01816E+01,-1.00266E+01,-9.87342E+00,
     &-9.72214E+00,-9.57265E+00,-9.42492E+00,-9.27892E+00,
     &-9.13467E+00,-8.99199E+00,-8.85091E+00,-8.71140E+00,
     &-8.57342E+00,-8.43696E+00,-8.30195E+00,-8.16839E+00,
     &-8.03621E+00,-7.90543E+00,-7.77600E+00,-7.64789E+00,
     &-7.52107E+00,-7.39551E+00,-7.27107E+00,-7.14683E+00,
     &-7.02255E+00,-6.89828E+00,-6.77379E+00,-6.64830E+00,
     &-6.52147E+00,-6.39329E+00,-6.26366E+00,-6.13264E+00,
     &-6.00012E+00,-5.86612E+00,-5.73058E+00,-5.59350E+00,
     &-5.45480E+00,-5.31444E+00,-5.17243E+00,-5.02870E+00,
     &-4.88321E+00,-4.73592E+00,-4.58761E+00,-4.43851E+00,
     &-4.28874E+00,-4.13832E+00,-3.98711E+00,-3.83521E+00,
     &-3.68255E+00,-3.52920E+00,-3.37510E+00,-3.22023E+00,
     &-3.06464E+00,-2.90827E+00,-2.75156E+00,-2.59477E+00,
     &-2.43795E+00,-2.28115E+00,-2.12422E+00,-1.96721E+00,
     &-1.81020E+00,-1.65311E+00,-1.49601E+00,-1.34123E+00,
     &-1.19082E+00,-1.04456E+00,-9.02203E-01,-7.63579E-01,
     &-6.28461E-01,-4.96698E-01,-3.68111E-01,-2.42564E-01,
     &-1.19902E-01, 0.00000E+00/
c temp (k)

      data t76/
     &1.96688E+02,1.98639E+02,2.00590E+02,2.02541E+02,2.04493E+02,
     &2.06446E+02,2.08399E+02,2.10353E+02,2.12308E+02,2.14263E+02,
     &2.16846E+02,2.19585E+02,2.22325E+02,2.25065E+02,2.27807E+02,
     &2.30549E+02,2.33292E+02,2.36036E+02,2.38781E+02,2.41527E+02,
     &2.44274E+02,2.47021E+02,2.49769E+02,2.52518E+02,2.55268E+02,
     &2.58019E+02,2.60771E+02,2.63524E+02,2.66277E+02,2.69031E+02,
     &2.70650E+02,2.70650E+02,2.70650E+02,2.70650E+02,2.69684E+02,
     &2.66925E+02,2.64164E+02,2.61403E+02,2.58641E+02,2.55878E+02,
     &2.53114E+02,2.50350E+02,2.47584E+02,2.44818E+02,2.42050E+02,
     &2.39282E+02,2.36513E+02,2.33743E+02,2.30973E+02,2.28490E+02,
     &2.27500E+02,2.26509E+02,2.25518E+02,2.24527E+02,2.23536E+02,
     &2.22544E+02,2.21552E+02,2.20560E+02,2.19567E+02,2.18574E+02,
     &2.17581E+02,2.16650E+02,2.16650E+02,2.16650E+02,2.16650E+02,
     &2.16650E+02,2.16650E+02,2.16650E+02,2.16650E+02,2.16650E+02,
     &2.16774E+02,2.23252E+02,2.29733E+02,2.36215E+02,2.42700E+02,
     &2.49187E+02,2.55676E+02,2.62166E+02,2.68659E+02,2.75154E+02,
     &2.81651E+02,2.88150E+02/
      end