source: LMDZ6/branches/IPSLCM6.0.14/libf/phylmd/surface_data.F90 @ 3205

Last change on this file since 3205 was 3102, checked in by oboucher, 7 years ago

Removing x permission from these files

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 973 bytes
Line 
1!
2! $Id: surface_data.F90 3102 2017-12-03 20:27:42Z fairhead $
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  !$OMP THREADPRIVATE(ok_veget)
12
13  CHARACTER(len=10), SAVE :: type_veget   ! orchidee/y/bucket/n/betaclim
14  !$OMP THREADPRIVATE(type_veget)
15
16  LOGICAL, SAVE          :: ok_snow       ! true for coupling to snow model SISVAT
17  !$OMP THREADPRIVATE(ok_snow)
18
19  CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
20  !$OMP THREADPRIVATE(type_ocean)
21
22  ! if type_ocean=couple : version_ocean=opa8 ou nemo
23  ! if type_ocean=slab   : version_ocean=sicOBS or sicINT or sicNO
24  CHARACTER(len=6), SAVE :: version_ocean
25  !$OMP THREADPRIVATE(version_ocean)
26
27  ! Pas de temps couplage atm/oce (en secondes)
28  REAL, SAVE             :: t_coupl
29  !$OMP THREADPRIVATE(t_coupl)
30
31END MODULE surface_data
Note: See TracBrowser for help on using the repository browser.