source: lmdz_wrf/trunk/WRFV3/lmdz/surface_data.F90 @ 1400

Last change on this file since 1400 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

  • Property svn:executable set to *
File size: 693 bytes
Line 
1!
2! $Header$
3!
4MODULE surface_data
5
6  REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
7  REAL, PARAMETER        :: tau_gl=86400.*5.
8  REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
9 
10  LOGICAL, SAVE          :: ok_veget      ! true for use of vegetation model ORCHIDEE
11  CHARACTER(len=10), SAVE :: type_veget    ! orchidee/y/bucket/n/betaclim
12  !$OMP THREADPRIVATE(ok_veget)
13
14  CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
15  !$OMP THREADPRIVATE(type_ocean)
16
17  ! if type_ocean=couple : version_ocean=opa8 ou nemo
18  ! if type_ocean=slab   : version_ocean=sicOBS
19  CHARACTER(len=6), SAVE :: version_ocean
20  !$OMP THREADPRIVATE(version_ocean)
21
22END MODULE surface_data
Note: See TracBrowser for help on using the repository browser.