79 |
REAL pen_d(klon, llm) ! flux entraine dans le panache descendant |
REAL pen_d(klon, llm) ! flux entraine dans le panache descendant |
80 |
REAL coefh(klon, llm) ! coeff melange couche limite |
REAL coefh(klon, llm) ! coeff melange couche limite |
81 |
real fm_therm(klon, llm+1), entr_therm(klon, llm) ! thermiques |
real fm_therm(klon, llm+1), entr_therm(klon, llm) ! thermiques |
82 |
REAL, intent(in):: yu1(klon), yv1(klon) ! vent au premier niveau |
REAL, intent(in):: yu1(:), yv1(:) ! (klon) vent 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, intent(in):: ftsol(:, :) ! (klon, nbsrf) surface temperature (K) |
real, intent(in):: ftsol(:, :) ! (klon, nbsrf) surface temperature (K) |