Changeset 434 for LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

Timestamp:

Jan 16, 2003, 12:10:34 PM (22 years ago)

Author:

lmdzadmin

Message:

Suppression du tableau veget() qui ne sert plus à rien ici
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

@@ -145 +145 @@
       PARAMETER (iliq=2)
 
-      INTEGER nvm           ! nombre de vegetations
-      PARAMETER (nvm=8)
-      REAL veget(klon,nvm)  ! couverture vegetale
-      SAVE veget
-
 c
 c
@@ -741 +736 @@
 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