source: LMDZ.3.3/branches/rel-LF/libf/phylmd/indicesol.h @ 367

Last change on this file since 367 was 98, checked in by lmdzadmin, 24 years ago

Interface avec les differentes surface, version de travail.LF

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 472 bytes
RevLine 
[2]1      INTEGER nbsrf
2      PARAMETER (nbsrf=4) ! nombre de sous-fractions pour une maille
[82]3!
[2]4      INTEGER is_oce
[95]5      PARAMETER (is_oce=3) ! ocean
[2]6      INTEGER is_sic
[95]7      PARAMETER (is_sic=4) ! glace de mer
[2]8      INTEGER is_ter
[95]9      PARAMETER (is_ter=1) ! terre
[2]10      INTEGER is_lic
[95]11      PARAMETER (is_lic=2) ! glacier continental
[82]12!
[2]13      REAL epsfra
14      PARAMETER (epsfra=1.0E-05)
[98]15!
16      CHARACTER *3 clnsurf(nbsrf)
17      DATA clnsurf/'ter', 'lic', 'oce', 'sic'/
Note: See TracBrowser for help on using the repository browser.