/[lmdze]/trunk/phylmd/phytrac.f
ViewVC logotype

Diff of /trunk/phylmd/phytrac.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC revision 266 by guez, Thu Apr 19 17:54:55 2018 UTC
# Line 119  contains Line 119  contains
119    
120      REAL, save:: trs(klon, nqmx - 2) ! Concentration de traceur dans le sol      REAL, save:: trs(klon, nqmx - 2) ! Concentration de traceur dans le sol
121    
122      REAL masktr(klon, nqmx - 2) ! Masque reservoir de sol traceur      REAL, save:: masktr(klon, nqmx - 2) ! Masque reservoir de sol traceur
123      ! Masque de l'echange avec la surface      ! Masque de l'echange avec la surface
124      ! (1 = reservoir) ou (possible => 1)      ! (1 = reservoir) ou (possible => 1)
125      SAVE masktr      
126      REAL fshtr(klon, nqmx - 2) ! Flux surfacique dans le reservoir de sol      REAL, save:: fshtr(klon, nqmx - 2)
127      SAVE fshtr      ! Flux surfacique dans le reservoir de sol
128      REAL hsoltr(nqmx - 2) ! Epaisseur equivalente du reservoir de sol      
129      SAVE hsoltr      REAL, save:: hsoltr(nqmx - 2) ! Epaisseur equivalente du reservoir de sol
130      REAL tautr(nqmx - 2) ! Constante de decroissance radioactive      REAL, save:: tautr(nqmx - 2) ! constante de d\'ecroissance radioactive
     SAVE tautr  
     REAL vdeptr(nqmx - 2) ! Vitesse de depot sec dans la couche Brownienne  
     SAVE vdeptr  
     REAL scavtr(nqmx - 2) ! Coefficient de lessivage  
     SAVE scavtr  
131    
132        REAL, save:: vdeptr(nqmx - 2)
133        ! Vitesse de depot sec dans la couche Brownienne
134    
135        REAL, save:: scavtr(nqmx - 2) ! Coefficient de lessivage
136      CHARACTER itn      CHARACTER itn
137    
138      logical, save:: aerosol(nqmx - 2) ! Nature du traceur      logical, save:: aerosol(nqmx - 2) ! Nature du traceur
Legend:
Removed from v.265  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21