source: LMDZ4/branches/unlabeled-1.1.1/libf/phylmd/indicesol.inc @ 2859

Last change on this file since 2859 was 524, checked in by lmdzadmin, 20 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 406 bytes
Line 
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'/
Note: See TracBrowser for help on using the repository browser.