source: trunk/LMDZ.TITAN/libf/phytitan/datafile_mod.F90 @ 3318

Last change on this file since 3318 was 3318, checked in by slebonnois, 7 months ago

Titan PCM update : optics + microphysics

File size: 1.5 KB
Line 
1!-----------------------------------------------------------------------
2      module datafile_mod
3!  Address of the directory containing tables of data needed by the GCM
4      implicit none
5
6      ! Main directory: 'datadir':
7      ! Default for LMD machines:
8      character(len=300),save :: datadir='datagcm'
9!$OMP THREADPRIVATE(datadir)
10     
11      ! Subdirectories of 'datadir':
12     
13      ! surfdir stores planetary topography, albedo, etc. (surface.nc files)
14      character(len=12),parameter :: surfdir="surface_data"
15     
16      ! Default directories for correlated-k data
17      ! Read in inifis_mod, set in physiq_mod
18      character(LEN=100),save :: corrkdir = 'datagcm/corrk_data/50X50'
19      character(LEN=100),save :: banddir  = 'datagcm/corrk_data/50X50/50x50'
20!$OMP THREADPRIVATE(corrkdir,banddir)
21     
22      ! Default directory for microphysics
23      ! Set in inifis_mod
24      character(LEN=100),save :: config_mufi ='datagcm/microphysics/config.cfg'
25!$OMP THREADPRIVATE(config_mufi)
26
27      ! Default file for coupled microphysics optical properties
28      ! Set in physiq_mod
29      character(LEN=100),save :: haze_opt_file ='datagcm/optical_tables/HAZE_OPT_23x23.DAT'
30!$OMP THREADPRIVATE(haze_opt_file)
31
32      ! Default file for nudging of zonal wind
33      ! Set in physiq_mod
34      character(LEN=100),save :: nudging_file ='datagcm/SuperNudging.dat'
35      ! character(LEN=100),save :: nudging_file ='datagcm/NewNudging.dat'
36!$OMP THREADPRIVATE(nudging_file)
37
38      end module datafile_mod
39!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.