source: LMDZ4/trunk/libf/phylmd/surface_data.F90 @ 985

Last change on this file since 985 was 803, checked in by Laurent Fairhead, 17 years ago

On elimine l'ancien calcul de clvent 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: 459 bytes
RevLine 
[781]1!
2! $Header$
3!
4MODULE surface_data
5
6  USE dimphy, ONLY : klon
7
8  REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
9  REAL, PARAMETER        :: tau_gl=86400.*5.
10  REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
11 
12  LOGICAL, SAVE          :: ok_veget       ! true for use of vegetation model ORCHIDEE
13  !$OMP THREADPRIVATE(ok_veget)
14  CHARACTER(len=6), SAVE :: ocean          ! force/slab/couple
15  !$OMP THREADPRIVATE(ocean)
16
17END MODULE surface_data
Note: See TracBrowser for help on using the repository browser.