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

      subroutine us62(nz,z,p,t,wh,wo) 1
      parameter (mz=33)
      dimension z(*),p(*),t(*),wh(*),wo(*)             
      dimension z6(mz),p6(mz),t6(mz),wh6(mz),wo6(mz)
c                                                                       
c     model: us standard 62 mc clatchey                                 
c                                                                       
      data z6/
     &    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 p6/
     &  1.013e+03,8.986e+02,7.950e+02,7.012e+02,6.166e+02,5.405e+02,      
     &  4.722e+02,4.111e+02,3.565e+02,3.080e+02,2.650e+02,2.270e+02,      
     &  1.940e+02,1.658e+02,1.417e+02,1.211e+02,1.035e+02,8.850e+01,      
     &  7.565e+01,6.467e+01,5.529e+01,4.729e+01,4.047e+01,3.467e+01,      
     &  2.972e+01,2.549e+01,1.197e+01,5.746e+00,2.871e+00,1.491e+00,      
     &  7.978e-01,5.520e-02,3.008e-04/                          
      data t6/
     &  2.881e+02,2.816e+02,2.751e+02,2.687e+02,2.622e+02,2.557e+02,      
     &  2.492e+02,2.427e+02,2.362e+02,2.297e+02,2.232e+02,2.168e+02,      
     &  2.166e+02,2.166e+02,2.166e+02,2.166e+02,2.166e+02,2.166e+02,      
     &  2.166e+02,2.166e+02,2.166e+02,2.176e+02,2.186e+02,2.196e+02,      
     &  2.206e+02,2.216e+02,2.265e+02,2.365e+02,2.534e+02,2.642e+02,      
     &  2.706e+02,2.197e+02,2.100e+02/                          
      data wh6/
     &  5.900e+00,4.200e+00,2.900e+00,1.800e+00,1.100e+00,6.400e-01,      
     &  3.800e-01,2.100e-01,1.200e-01,4.600e-02,1.800e-02,8.200e-03,      
     &  3.700e-03,1.800e-03,8.400e-04,7.200e-04,6.100e-04,5.200e-04,      
     &  4.400e-04,4.400e-04,4.400e-04,4.800e-04,5.200e-04,5.700e-04,      
     &  6.100e-04,6.600e-04,3.800e-04,1.600e-04,6.700e-05,3.200e-05,      
     &  1.200e-05,1.500e-07,1.000e-09/                          
      data wo6/
     &  5.400e-05,5.400e-05,5.400e-05,5.000e-05,4.600e-05,4.600e-05,      
     &  4.500e-05,4.900e-05,5.200e-05,7.100e-05,9.000e-05,1.300e-04,      
     &  1.600e-04,1.700e-04,1.900e-04,2.100e-04,2.400e-04,2.800e-04,      
     &  3.200e-04,3.500e-04,3.800e-04,3.800e-04,3.900e-04,3.800e-04,      
     &  3.600e-04,3.400e-04,2.000e-04,1.100e-04,4.900e-05,1.700e-05,      
     &  4.000e-06,8.600e-08,4.300e-11/                          
      do 1 i=1,mz                                                       
        z(i)=z6(i)                                                        
        p(i)=p6(i)                                                        
        t(i)=t6(i)                                                        
        wh(i)=wh6(i)                                                      
        wo(i)=wo6(i)                                                      
    1 continue           
      nz=mz                                               
      return                                                            
      end