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

Last change on this file since 1620 was 197, checked in by lmdz, 24 years ago

Chgts divers pour le offline/nudge FH
LF

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 391 bytes
RevLine 
[197]1      INTEGER, parameter :: nbsrf=4
[116]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.