c***********************************************************************
	block data bloque                             
                                                
c 	reads planetary and molecular parameters     
                                                
c 	jan 98 	malv		first version	                 
c       jul 2011 malv+fgg       Adapted to LMD-MGCM
c***********************************************************************
                                                
	implicit none                                  
                                                
	include	'nltedefs.h'          
	include	'nlte_data.h'       
                                                
c data                                          
        data nu(1,1),nu(1,2),nu(1,3),nu(1,4)    
     @    /667.3801, 1335.1317, 2003.2463, 2349.1433/       
        data nu(1,5),nu(1,6),nu(1,7),nu(1,8)    
     @   /3004.0112, 3612.8417, 3659.2728, 3714.7828/       
        data nu(2,1),nu(2,2),nu(2,3),nu(2,4)    
     @   /662.3734, 1325.1410, 1988.3280, 2332.1128/        
        data nu(2,5),nu(2,6),nu(2,7),nu(2,8)    
     @   /2982.1115, 3571.1404, 3632.5240, 3675.1332/       
        data nu(3,1),nu(3,2),nu(3,3),nu(3,4)    
     @   /648.4784, 1297.2640, 1946.3507, 2283.4876/        
        data nu(3,5),nu(3,6),nu(3,7),nu(3,8)    
     @   /2920.2387, 3527.7380, 3557.3145, 3632.9112/       
        data nu(4,1),nu(4,2),nu(4,3),nu(4,4)    
     @   /664.7289, 1329.8430, 1995.3520, 2340.0136/        
        data nu(4,5),nu(4,6),nu(4,7),nu(4,8)    
     @   /2992.3100, 3591.2510, 3644.9900, 3693.3460/       
        data nu12_0200,nu12_1000, nu22_0200,nu22_1000       
     @   /1285.4087, 1388.1847, 1259.4257, 1365.8439/       
         data nu32_0200,nu32_1000, nu42_0200,nu42_1000      
     @   /1265.8282, 1370.0626, 1272.2866, 1376.0275/       
        data nun2, nuco_10
     @   /2331.0, 2143.2716 /     
        data deltanuco/306./                    
                                                
        data indexisot/26,28,36,27/             
                                                
	! ctes en el sistema cgs                       
        data vlight, ee /2.9979245e10, 1.43876866/      
        data hplanck, gamma/6.6260755e-27, 1.191043934e-5/    

                     
	! datos de marte                               
        data imrco / 0.9865 /    
        data imr / 0.987, 0.00408, 0.0112, 0.000742 /    

	! datos de venus 
        !data radio 	/ 6052. /	! radio [km]   
	!data mean_distance / 0.723 /     ! mean heliocentric distance [AU]
	!data amplitude_excentricity / 0.0 /     ! [AU]
	!data phase_equinox / 0.0 /              ! [degree]
        !data period_rot / 2.15404e7 /	! period_rot [s] (=243 [Earth days])
	                                !OJO! El periodo es realmente 116 days
                                        ! pues se combinan la rotacion (243 d)
	                                ! con la traslacion (xxx d)
	!data planet_inclination / 3.39 / ! [degree]  
        !data masa 	/ 2.53104e27 /	! masa [g]     
        !data imr, imrco / 0.987, 0.00408, 0.0112, 0.000742, 0.9865 /    
        !data imr637,imr638,imr828,imr728 /9.e-6, 4.4e-5, 4.e-6, 2.e-6/  
                                                

	end