c***********************************************************************
	subroutine leetvt                              
                                                
c 	reads input vibr. temps. from external files or sets lte values      
c	according to the driver table                 

c       jul 2011 malv+fgg   adapted to LMD-MGCM
c       malv    Jan 07          Add new vertical fine-grid for NLTE
c 	jan 98 	malv		based on solar10sub            
c***********************************************************************
                                                
	implicit none                                  
                                                
	include 'nltedefs.h'          
	include 'nlte_atm.h'        
	include 'nlte_results.h'  
                                                
c local variables                               
	integer i                                      
	real*8	zld(nl), zyd(nzy)
	real*8 xvt11(nzy), xvt21(nzy), xvt31(nzy), xvt41(nzy)
                                                
c***********************************************************************
                                                
	   do i=1,nzy                                   
		zyd(i) = dble(zy(i))                          
		xvt11(i)= dble( ty(i) )                     
		xvt21(i)= dble( ty(i) )                     
		xvt31(i)= dble( ty(i) )                     
		xvt41(i)= dble( ty(i) )                     
           end do		                             
                                                
                                                
c interpolate to the nlte subgrid               
                                                
	do i=1,nl                                      
	    zld(i) = dble( zl(i) )                     
	enddo                                             
	call interdp ( v626t1,zld,nl, xvt11,zyd,nzy, 1) 
        call interdp ( v628t1,zld,nl, xvt21,zyd,nzy, 1)      
        call interdp ( v636t1,zld,nl, xvt31,zyd,nzy, 1)      
        call interdp ( v627t1,zld,nl, xvt41,zyd,nzy, 1)      


c end                                           
	return                                         
	end