88 |
|
|
89 |
! Arguments n\'ecessaires pour les sources et puits de traceur : |
! Arguments n\'ecessaires pour les sources et puits de traceur : |
90 |
real, intent(in):: ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin) |
real, intent(in):: ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin) |
91 |
real pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol) |
real, intent(in):: pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol) |
92 |
|
|
93 |
! Lessivage pour le on-line |
! Lessivage pour le on-line |
94 |
REAL frac_impa(klon, llm) ! fraction d'aerosols impactes |
REAL frac_impa(klon, llm) ! fraction d'aerosols impactes |