source: LMDZ.3.3/trunk/libf/phylmd/indicesol.inc @ 191

Last change on this file since 191 was 116, checked in by lmdz, 24 years ago

Rajout pour le couplage
LF

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 390 bytes
Line 
1      INTEGER,parameter :: nbsrf=4
2      INTEGER, parameter :: is_oce=3 !ocean
3      INTEGER, parameter :: is_sic = 4 ! glace de mer
4      INTEGER, parameter :: is_ter = 1 ! terre
5      INTEGER, parameter :: is_lic = 2 ! glacier continental
6      REAL,parameter :: epsfra = 1.0E-05
7!
8      CHARACTER (len=3),dimension(nbsrf) :: clnsurf(nbsrf)
9      DATA clnsurf/'ter', 'lic', 'oce', 'sic'/
Note: See TracBrowser for help on using the repository browser.