source: trunk/LMDZ.VENUS/libf/phyvenus/nir_leedat.F @ 1453

Last change on this file since 1453 was 1310, checked in by slebonnois, 10 years ago

SL: VENUS VERTICAL EXTENSION. NLTE and thermospheric processes, to be run with 78 levels and specific inputs.
File size: 1.3 KB
RevLine 
[1310]1c***********************************************************************
2      subroutine NIR_leedat                             
3                                               
4c       reads parameters for NIR NLTE calculation   
5                                               
6c       nov 2011    fgg+malv    first version               
7c***********************************************************************
8
9      implicit none                                 
10                                               
11     
12      include 'nirdata.h'
13c      include 'datafile.h'                                         
14                                               
15c local variables                               
16
17      integer   ind                     
18      character (len=100) :: datafile="HIGHATM"
19                             
20c***********************************************************************
21     
22      open(43,file=trim(datafile)//'/NIRcorrection_feb2011.dat',
23     $       status='old')         
24      do ind=1,9
25         read(43,*)
26      enddo
27     
28      do ind=1,npres
29         read(43,*)pres1d(ind),corgcm(ind),oco21d(ind),p1999(ind),
30     $        alfa(ind)
31                                !Tabulated pression to Pa
32         pres1d(ind)=pres1d(ind)*100.
33       
34      enddo
35   
36      close(43)
37     
38      return
39
40      end
Note: See TracBrowser for help on using the repository browser.