pro getprf,prfnam,oz,temp
;
; get prf
;
; author/date
;
; colin seftor / 22-february-96
;
; purpose:
;
;    get a standard profile
;
; category:
;
;    radiative transfer routine
;
; calling sequence:
;
;    pro getprf,prfnam,oz,prf
;
; input:
;
;    prfnam:    profile name
;
; output
;
;    oz:        ozone profile; real array of 11, ground to top of atm
;
;    temp:      temperature profile; real array of 11, ground to top of atm
;
case prfnam of
   
   'l225': begin
       oz   = [15.0,  9.0,  5.0,  7.0, 25.0, 62.2, 57.0, 29.4, 10.9,  3.2,  1.3]
       temp = [283.0,251.0,215.6,200.7,210.7,221.6,231.1,245.3,258.7,267.4,265.4]
           end
    
   'l275': begin
       oz   = [15.0,  9.0,  6.0, 12.0, 52.0, 79.2, 57.0, 29.4, 10.9,  3.2,  1.3]
       temp = [283.0,251.0,215.9,203.5,211.9,222.5,231.1,245.3,258.7,267.4,265.4]
           end 

   'l325': begin
       oz   = [15.0,  9.0, 10.0, 31.0, 71.0, 87.2, 57.0, 29.4, 10.9,  3.2,  1.3]
       temp = [283.0,251.0,216.5,207.0,213.6,223.0,231.1,245.3,258.7,267.4,265.4]
           end

   'l375': begin
       oz   = [15.0,  9.0, 21.0, 53.0, 88.0, 87.2, 57.0, 29.4, 10.9,  3.2,  1.3]
       temp = [283.0,251.0,216.0,210.0,216.0,224.0,231.1,245.3,258.7,267.4,265.4]
           end

   'l425': begin
       oz   = [15.0,  9.0, 37.0, 81.0, 94.0, 87.2, 57.0, 29.4, 10.9,  3.2,  1.3]
       temp = [283.0,251.0,216.0,213.0,217.0,224.5,231.1,245.3,258.7,267.4,265.4]
           end

   'l475': begin
       oz   = [15.0,  9.0, 54.0,108.0,100.0, 87.2, 57.0, 29.4, 10.9,  3.2,  1.3]
       temp = [283.0,251.0,216.0,216.0,219.0,225.0,231.1,245.3,258.7,267.4,265.4]
           end

   'm125': begin
       oz   = [ 6.0,  5.0,  4.0,  6.0,  8.0, 31.8, 28.0, 20.0, 11.1,  3.7,  1.4]
       temp = [237.0,218.0,196.0,191.0,193.0,210.0,227.6,239.4,253.6,263.9,262.6]
           end

   'm175': begin
       oz   = [ 8.0,  7.0,  8.0, 12.0, 26.0, 41.9, 33.6, 22.3, 11.1,  3.7,  1.4]
       temp = [260.0,228.0,201.7,198.0,202.1,214.3,227.6,239.4,253.6,263.9,262.6]
           end

   'm225': begin
       oz   = [10.0,  9.0, 12.0, 18.0, 44.0, 52.1, 39.2, 24.5, 11.1,  3.7,  1.4]
       temp = [273.0,239.0,213.3,207.5,211.7,219.1,227.6,239.4,253.6,263.9,262.6]
           end

   'm275': begin
       oz   = [16.0, 12.0, 15.0, 29.0, 58.0, 63.7, 40.6, 24.5, 11.1,  3.7,  1.4]
       temp = [273.0,239.0,217.1,212.2,214.9,220.4,227.6,239.4,253.6,263.9,262.6]
           end

   'm325': begin
       oz   = [16.0, 14.0, 26.0, 45.0, 74.7, 66.9, 41.7, 24.5, 11.1,  3.7,  1.4]
       temp = [273.0,239.0,219.1,216.6,217.0,220.8,227.6,239.4,253.6,263.9,262.6]
           end

   'm375': begin
       oz   = [16.0, 16.0, 39.0, 64.0, 85.7, 71.1, 42.5, 24.5, 11.1,  3.7,  1.4]
       temp = [273.0,239.0,220.2,219.0,219.0,221.9,227.6,239.4,253.6,263.9,262.6]
           end

   'm425': begin
       oz   = [16.0, 18.0, 54.0, 84.0, 97.7, 71.7, 42.9, 24.5, 11.1,  3.7,  1.4]
       temp = [273.0,239.0,220.9,220.7,221.0,223.7,227.6,239.4,253.6,263.9,262.6]
           end

   'm475': begin
       oz   = [16.0, 22.0, 72.0,107.7,101.0, 72.6, 43.0, 24.5, 11.1,  3.7,  1.4]
       temp = [273.0,239.0,221.5,222.5,222.7,224.4,227.6,239.4,253.6,263.9,262.6]
           end

   'm525': begin
       oz   = [16.0, 26.0, 91.0,127.7,108.0, 72.6, 43.0, 24.5, 11.1,  3.7,  1.4]
       temp = [273.0,239.0,222.3,224.8,225.5,225.8,227.6,239.4,253.6,263.9,262.6]
           end

   'm575': begin
       oz   = [16.0, 30.0,110.0,147.7,115.0, 72.6, 43.0, 24.5, 11.1,  3.7,  1.4]
       temp = [273.0,239.0,225.0,227.0,227.0,227.0,227.6,239.4,253.6,263.9,262.6]
           end

   'h125': begin
       oz   = [ 9.5,  7.0, 18.3,  7.6,  8.2, 28.6, 22.0, 12.4,  7.7,  2.5,  1.2]
       temp = [237.0,218.0,196.0,191.0,193.0,210.0,223.3,237.1,251.6,262.4,265.6]
           end

   'h175': begin
       oz   = [ 9.5,  8.0, 22.8, 22.0, 26.9, 32.3, 26.8, 15.0,  8.0,  2.5,  1.2]
       temp = [260.0,228.0,201.7,198.0,202.1,214.3,223.3,237.1,251.6,262.4,265.6]
           end

   'h225': begin
       oz   = [10.0,  9.0, 27.6, 45.7, 41.0, 35.0, 28.8, 15.4,  8.3,  2.9,  1.3]
       temp = [260.0,228.0,209.7,208.5,212.5,222.0,228.0,237.1,251.6,262.4,265.6]
           end

   'h275': begin
       oz   = [14.0, 12.0, 34.0, 66.9, 54.2, 36.0, 28.8, 15.4,  8.9,  3.4,  1.4]
       temp = [260.0,228.0,222.6,223.4,223.8,226.5,231.6,237.1,251.6,262.4,265.6]
           end

   'h325': begin
       oz   = [14.0, 15.0, 46.8, 82.6, 65.2, 41.7, 28.8, 17.2,  8.9,  3.4,  1.4]
       temp = [260.0,228.0,222.6,223.4,223.8,226.5,231.6,237.1,251.6,262.4,265.6]
           end

   'h375': begin
       oz   = [14.0, 20.0, 61.2, 93.8, 75.2, 45.9, 32.5, 18.7,  8.9,  3.4,  1.4]
       temp = [260.0,228.0,222.6,223.4,223.8,226.5,231.6,237.1,251.6,262.4,265.6]
           end

   'h425': begin
       oz   = [14.0, 25.0, 76.2,104.9, 84.2, 51.4, 35.6, 20.0,  8.9,  3.4,  1.4]
       temp = [260.0,228.0,222.6,223.4,223.8,226.5,231.6,237.1,251.6,262.4,265.6]
           end

   'h475': begin
       oz   = [14.0, 32.0, 91.0,117.1, 93.0, 55.8, 37.5, 20.9,  8.9,  3.4,  1.4]
       temp = [260.0,228.0,222.6,223.4,223.8,226.5,231.6,237.1,251.6,262.4,265.6]
           end

   'h525': begin
       oz   = [14.0, 41.0,107.1,128.1,101.0, 60.2, 38.2, 21.7,  8.9,  3.4,  1.4]
       temp = [260.0,228.0,222.6,223.4,223.8,226.5,231.6,237.1,251.6,262.4,265.6]
           end

   'h575': begin
       oz   = [14.0, 49.0,123.2,142.2,111.0, 60.6, 38.8, 22.5,  8.9,  3.4,  1.4]
       temp = [260.0,228.0,222.6,223.4,223.8,226.5,231.6,237.1,251.6,262.4,265.6]
           end

   else: begin
       print, 'profile name not recognized'
       stop
         end
   endcase
return
end