Changeset 95 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

May 16, 2000, 4:31:37 PM (25 years ago)

Author:

lmdzadmin

Message:

changement d'indice pour les differentes surfaces. Les surfaces
continentales doivent se retrouver a 1.

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/indicesol.h (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/indicesol.h

@@ -3 +3 @@
 !
       INTEGER is_oce
-      PARAMETER (is_oce=1) ! ocean
+      PARAMETER (is_oce=3) ! ocean
       INTEGER is_sic
-      PARAMETER (is_sic=2) ! glace de mer
+      PARAMETER (is_sic=4) ! glace de mer
       INTEGER is_ter
-      PARAMETER (is_ter=3) ! terre
+      PARAMETER (is_ter=1) ! terre
       INTEGER is_lic
-      PARAMETER (is_lic=4) ! glacier continental
+      PARAMETER (is_lic=2) ! glacier continental
 !
       REAL epsfra