source: trunk/LMDZ.MARS/libf/phymars/nir_leedat.F @ 2090

Last change on this file since 2090 was 1918, checked in by emillour, 7 years ago

Mars GCM:
Code cleanup:

  • remove "comorbit.h" since it is no longer used.
  • turn "datafile.h" into module datafile_mod.F90 (and rename variable "datafile" as "datadir" since it stores the path to the datafile directory).

EM

File size: 1.3 KB
Line 
1c***********************************************************************
2      subroutine NIR_leedat                             
3                                               
4c       reads parameters for NIR NLTE calculation   
5                                               
6c       nov 2011    fgg+malv    first version               
7c***********************************************************************
8
9      use datafile_mod, only: datadir
10
11      implicit none                                 
12                                               
13      include 'nirdata.h'
14                                               
15                                               
16c local variables                               
17
18      integer   ind                     
19
20                             
21c***********************************************************************
22
23      open(43,file=trim(datadir)//'/NIRcorrection_feb2011.dat',
24     $       status='old')         
25      do ind=1,9
26         read(43,*)
27      enddo
28     
29      do ind=1,npres
30         read(43,*)pres1d(ind),corgcm(ind),oco21d(ind),p1999(ind),
31     $        alfa(ind)
32                                !Tabulated pression to Pa
33         pres1d(ind)=pres1d(ind)*100.
34      enddo
35      close(43)
36
37      return
38
39      end
Note: See TracBrowser for help on using the repository browser.