source: LMDZ4/branches/V3_test/libf/phylmd/indicesol.inc

Last change on this file was 704, checked in by Laurent Fairhead, 18 years ago

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 454 bytes
RevLine 
[524]1!
2! $Header$
3!
4      INTEGER, parameter :: nbsrf=4
5      INTEGER, parameter :: is_oce=3 !ocean
6      INTEGER, parameter :: is_sic = 4 ! glace de mer
7      INTEGER, parameter :: is_ter = 1 ! terre
8      INTEGER, parameter :: is_lic = 2 ! glacier continental
9      REAL,parameter :: epsfra = 1.0E-05
10!
11      CHARACTER (len=3),dimension(nbsrf) :: clnsurf(nbsrf)
12      DATA clnsurf/'ter', 'lic', 'oce', 'sic'/
[704]13      SAVE clnsurf
14!$OMP THREADPRIVATE(clnsurf)
Note: See TracBrowser for help on using the repository browser.