Changeset 434


Ignore:
Timestamp:
Jan 16, 2003, 12:10:34 PM (21 years ago)
Author:
lmdzadmin
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r433 r434  
    145145      PARAMETER (iliq=2)
    146146
    147       INTEGER nvm           ! nombre de vegetations
    148       PARAMETER (nvm=8)
    149       REAL veget(klon,nvm)  ! couverture vegetale
    150       SAVE veget
    151 
    152147c
    153148c
    … …  
    741736cIM  .                  , RI0)
    742737
    743          DO k = 2, nvm          ! pas de vegetation
    744             DO i = 1, klon
    745                veget(i,k) = 0.0
    746             ENDDO
    747          ENDDO
    748          DO i = 1, klon
    749             veget(i,1) = 1.0    ! il n'y a que du desert
    750          ENDDO
    751          PRINT*, 'Pas de vegetation; desert partout'
    752738c
    753739c
Note: See TracChangeset for help on using the changeset viewer.