source: LMDZ5/trunk/libf/phylmd/surface_data.F90 @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 829 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  ! Martin
14  LOGICAL, SAVE          :: ok_snow       ! true for coupling to snow model SISVAT
15  !$OMP THREADPRIVATE(ok_snow)
16  ! Martin
17
18  CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
19  !$OMP THREADPRIVATE(type_ocean)
20
21  ! if type_ocean=couple : version_ocean=opa8 ou nemo
22  ! if type_ocean=slab   : version_ocean=sicOBS
23  CHARACTER(len=6), SAVE :: version_ocean
24  !$OMP THREADPRIVATE(version_ocean)
25
26END MODULE surface_data
Note: See TracBrowser for help on using the repository browser.