Index: /LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F
===================================================================
--- /LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F	(revision 433)
+++ /LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F	(revision 434)
@@ -145,9 +145,4 @@
       PARAMETER (iliq=2)
 
-      INTEGER nvm           ! nombre de vegetations
-      PARAMETER (nvm=8)
-      REAL veget(klon,nvm)  ! couverture vegetale
-      SAVE veget
-
 c
 c
@@ -741,13 +736,4 @@
 cIM  .                  , RI0)
 
-         DO k = 2, nvm          ! pas de vegetation
-            DO i = 1, klon
-               veget(i,k) = 0.0
-            ENDDO
-         ENDDO
-         DO i = 1, klon
-            veget(i,1) = 1.0    ! il n'y a que du desert
-         ENDDO
-         PRINT*, 'Pas de vegetation; desert partout'
 c
 c