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

      subroutine midwin(nz,z,p,t,wh,wo) 1
      parameter (mz=33)
      dimension z(*),p(*),t(*),wh(*),wo(*)             
      dimension z3(mz),p3(mz),t3(mz),wh3(mz),wo3(mz)
c                                                                       
c     model: midlatitude winter mc'clatchey                             
c                                                                       
      data z3/
     &     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 p3/
     &     1.018e+03,8.973e+02,7.897e+02,6.938e+02,6.081e+02,5.313e+02,      
     &     4.627e+02,4.016e+02,3.473e+02,2.992e+02,2.568e+02,2.199e+02,      
     &     1.882e+02,1.610e+02,1.378e+02,1.178e+02,1.007e+02,8.610e+01,      
     &     7.350e+01,6.280e+01,5.370e+01,4.580e+01,3.910e+01,3.340e+01,      
     &     2.860e+01,2.430e+01,1.110e+01,5.180e+00,2.530e+00,1.290e+00,      
     &  6.820e-01,4.670e-02,3.000e-04/                          
      data t3/
     &  2.722e+02,2.687e+02,2.652e+02,2.617e+02,2.557e+02,2.497e+02,      
     &  2.437e+02,2.377e+02,2.317e+02,2.257e+02,2.197e+02,2.192e+02,      
     &  2.187e+02,2.182e+02,2.177e+02,2.172e+02,2.167e+02,2.162e+02,      
     &  2.157e+02,2.152e+02,2.152e+02,2.152e+02,2.152e+02,2.152e+02,      
     &  2.152e+02,2.152e+02,2.174e+02,2.278e+02,2.432e+02,2.585e+02,      
     &  2.657e+02,2.307e+02,2.102e+02/                          
      data wh3/
     &  3.500e+00,2.500e+00,1.800e+00,1.200e+00,6.600e-01,3.800e-01,      
     &  2.100e-01,8.500e-02,3.500e-02,1.600e-02,7.500e-03,6.900e-03,      
     &  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,      
     &  6.300e-06,1.400e-07,1.000e-09/                          
      data wo3/
     &  6.000e-05,5.400e-05,4.900e-05,4.900e-05,4.900e-05,5.800e-05,      
     &  6.400e-05,7.700e-05,9.000e-05,1.200e-04,1.600e-04,2.100e-04,      
     &  2.600e-04,3.000e-04,3.200e-04,3.400e-04,3.600e-04,3.900e-04,      
     &  4.100e-04,4.300e-04,4.500e-04,4.300e-04,4.300e-04,3.900e-04,      
     &  3.600e-04,3.400e-04,1.900e-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)=z3(i)                                                        
        p(i)=p3(i)                                                        
        t(i)=t3(i)                                                        
        wh(i)=wh3(i)                                                      
        wo(i)=wo3(i)                                                      
    1 continue             
      nz=mz                                             
      return                                                            
      end