source: LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/surface_data.F90 @ 5306

Last change on this file since 5306 was 1073, checked in by Laurent Fairhead, 16 years ago

Mise a jour de la branche par rapport au depot CVS
JG/LF

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 576 bytes
Line 
1!
2MODULE surface_data
3
4  USE dimphy, ONLY : klon
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  CHARACTER(len=6), SAVE :: ocean          ! force/slab/couple
13  !$OMP THREADPRIVATE(ocean)
14
15  ! if ocean=couple : version_ocean=opa8 ou nemo
16  CHARACTER(len=6), SAVE :: version_ocean
17  !$OMP THREADPRIVATE(version_ocean)
18
19END MODULE surface_data
Note: See TracBrowser for help on using the repository browser.