61 |
|
|
62 |
REAL, INTENT(IN):: paprs(klon, klev + 1) ! pression a intercouche (Pa) |
REAL, INTENT(IN):: paprs(klon, klev + 1) ! pression a intercouche (Pa) |
63 |
REAL, INTENT(IN):: play(klon, klev) ! pression au milieu de couche (Pa) |
REAL, INTENT(IN):: play(klon, klev) ! pression au milieu de couche (Pa) |
64 |
REAL, INTENT(inout):: fsnow(:, :) ! (klon, nbsrf) \'epaisseur neigeuse |
|
65 |
|
REAL, INTENT(inout):: fsnow(:, :) ! (klon, nbsrf) |
66 |
|
! column-density of mass of snow, in kg m-2 |
67 |
|
|
68 |
REAL, INTENT(inout):: fqsurf(klon, nbsrf) |
REAL, INTENT(inout):: fqsurf(klon, nbsrf) |
69 |
REAL, intent(inout):: falbe(klon, nbsrf) |
REAL, intent(inout):: falbe(klon, nbsrf) |
70 |
|
|
78 |
! solid water mass flux (kg / m2 / s), positive down |
! solid water mass flux (kg / m2 / s), positive down |
79 |
|
|
80 |
REAL, intent(inout):: frugs(klon, nbsrf) ! longueur de rugosit\'e (en m) |
REAL, intent(inout):: frugs(klon, nbsrf) ! longueur de rugosit\'e (en m) |
81 |
real agesno(klon, nbsrf) |
real, intent(inout):: agesno(:, :) ! (klon, nbsrf) |
82 |
REAL, INTENT(IN):: rugoro(klon) |
REAL, INTENT(IN):: rugoro(klon) |
83 |
|
|
84 |
REAL, intent(out):: d_t(:, :), d_q(:, :) ! (klon, klev) |
REAL, intent(out):: d_t(:, :), d_q(:, :) ! (klon, klev) |
161 |
REAL yts(klon), ypctsrf(klon), yz0_new(klon) |
REAL yts(klon), ypctsrf(klon), yz0_new(klon) |
162 |
real yrugos(klon) ! longueur de rugosite (en m) |
real yrugos(klon) ! longueur de rugosite (en m) |
163 |
REAL yalb(klon) |
REAL yalb(klon) |
164 |
REAL snow(klon), yqsurf(klon), yagesno(klon) |
REAL snow(klon) ! column-density of mass of snow, in kg m-2 |
165 |
|
real yqsurf(klon), yagesno(klon) |
166 |
real yqsol(klon) ! column-density of water in soil, in kg m-2 |
real yqsol(klon) ! column-density of water in soil, in kg m-2 |
167 |
REAL yrain_fall(klon) ! liquid water mass flux (kg / m2 / s), positive down |
REAL yrain_fall(klon) ! liquid water mass flux (kg / m2 / s), positive down |
168 |
REAL ysnow_fall(klon) ! solid water mass flux (kg / m2 / s), positive down |
REAL ysnow_fall(klon) ! solid water mass flux (kg / m2 / s), positive down |