82 |
REAL yv1(klon) ! vents au premier niveau |
REAL yv1(klon) ! vents au premier niveau |
83 |
|
|
84 |
! Arguments n\'ecessaires pour les sources et puits de traceur : |
! Arguments n\'ecessaires pour les sources et puits de traceur : |
85 |
real ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin) |
real, intent(in):: ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin) |
86 |
real pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol) |
real pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol) |
87 |
|
|
88 |
! Lessivage pour le on-line |
! Lessivage pour le on-line |