c=======================================================================

      subroutine midsum(nz,z,p,t,wh,wo) 1
      parameter (mz=33)
      dimension z(*),p(*),t(*),wh(*),wo(*)             
      dimension z2(mz),p2(mz),t2(mz),wh2(mz),wo2(mz)
c                                                                       
c     model: midlatitude summer mc'clatchey                             
c                                                                       
      data z2/
     &    0.,    1.,    2.,    3.,    4.,    5.,    6.,    7.,    8.,   
     &    9.,   10.,   11.,   12.,   13.,   14.,   15.,   16.,   17.,   
     &   18.,   19.,   20.,   21.,   22.,   23.,   24.,   25.,   30.,   
     &   35.,   40.,   45.,   50.,   70.,  100./                 
      data p2/
     &  1.013e+03,9.020e+02,8.020e+02,7.100e+02,6.280e+02,5.540e+02,      
     &  4.870e+02,4.260e+02,3.720e+02,3.240e+02,2.810e+02,2.430e+02,      
     &  2.090e+02,1.790e+02,1.530e+02,1.300e+02,1.110e+02,9.500e+01,      
     &  8.120e+01,6.950e+01,5.950e+01,5.100e+01,4.370e+01,3.760e+01,      
     &  3.220e+01,2.770e+01,1.320e+01,6.520e+00,3.330e+00,1.760e+00,      
     &  9.510e-01,6.710e-02,3.000e-04/                          
      data t2/
     &  2.940e+02,2.900e+02,2.850e+02,2.790e+02,2.730e+02,2.670e+02,      
     &  2.610e+02,2.550e+02,2.480e+02,2.420e+02,2.350e+02,2.290e+02,      
     &  2.220e+02,2.160e+02,2.160e+02,2.160e+02,2.160e+02,2.160e+02,      
     &  2.160e+02,2.170e+02,2.180e+02,2.190e+02,2.200e+02,2.220e+02,      
     &  2.230e+02,2.240e+02,2.340e+02,2.450e+02,2.580e+02,2.700e+02,      
     &  2.760e+02,2.180e+02,2.100e+02/                          
      data wh2/
     &  1.400e+01,9.300e+00,5.900e+00,3.300e+00,1.900e+00,1.000e+00,      
     &  6.100e-01,3.700e-01,2.100e-01,1.200e-01,6.400e-02,2.200e-02,      
     &  6.000e-03,1.800e-03,1.000e-03,7.600e-04,6.400e-04,5.600e-04,      
     &  5.000e-04,4.900e-04,4.500e-04,5.100e-04,5.100e-04,5.400e-04,      
     &  6.000e-04,6.700e-04,3.600e-04,1.100e-04,4.300e-05,1.900e-05,      
     &  1.300e-06,1.400e-07,1.000e-09/                          
      data wo2/
     &  6.000e-05,6.000e-05,6.000e-05,6.200e-05,6.400e-05,6.600e-05,      
     &  6.900e-05,7.500e-05,7.900e-05,8.600e-05,9.000e-05,1.100e-04,      
     &  1.200e-04,1.500e-04,1.800e-04,1.900e-04,2.100e-04,2.400e-04,      
     &  2.800e-04,3.200e-04,3.400e-04,3.600e-04,3.600e-04,3.400e-04,      
     &  3.200e-04,3.000e-04,2.000e-04,9.200e-05,4.100e-05,1.300e-05,      
     &  4.300e-06,8.600e-08,4.300e-11/                          

      do 1 i=1,mz                                                       
        z(i)=z2(i)                                                        
        p(i)=p2(i)                                                        
        t(i)=t2(i)                                                        
        wh(i)=wh2(i)                                                      
        wo(i)=wo2(i)                                                      
    1 continue             
      nz=mz                                             
      return                                                            
      end