35 |
USE conf_gcm_m, ONLY: lmt_pas |
USE conf_gcm_m, ONLY: lmt_pas |
36 |
use ctherm, only: iflag_thermals |
use ctherm, only: iflag_thermals |
37 |
use cvltr_m, only: cvltr |
use cvltr_m, only: cvltr |
38 |
use dimens_m, only: llm, nqmx |
use dimensions, only: llm, nqmx |
39 |
use dimphy, only: klon |
use dimphy, only: klon |
40 |
use histwrite_phy_m, only: histwrite_phy |
use histwrite_phy_m, only: histwrite_phy |
41 |
use indicesol, only: nbsrf |
use indicesol, only: nbsrf |
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 |