142 |
REAL yalb(klon) |
REAL yalb(klon) |
143 |
REAL snow(klon), yqsurf(klon), yagesno(klon) |
REAL snow(klon), yqsurf(klon), yagesno(klon) |
144 |
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 |
145 |
REAL yrain_f(klon) ! liquid water mass flux (kg / m2 / s), positive down |
REAL yrain_fall(klon) ! liquid water mass flux (kg / m2 / s), positive down |
146 |
REAL ysnow_f(klon) ! solid water mass flux (kg / m2 / s), positive down |
REAL ysnow_fall(klon) ! solid water mass flux (kg / m2 / s), positive down |
147 |
REAL yrugm(klon), yrads(klon), yrugoro(klon) |
REAL yrugm(klon), yrads(klon), yrugoro(klon) |
148 |
REAL yfluxlat(klon) |
REAL yfluxlat(klon) |
149 |
REAL y_d_ts(klon) |
REAL y_d_ts(klon) |
201 |
dflux_t = 0. |
dflux_t = 0. |
202 |
dflux_q = 0. |
dflux_q = 0. |
203 |
ypct = 0. |
ypct = 0. |
|
yrain_f = 0. |
|
|
ysnow_f = 0. |
|
204 |
yrugos = 0. |
yrugos = 0. |
205 |
ypaprs = 0. |
ypaprs = 0. |
206 |
ypplay = 0. |
ypplay = 0. |
259 |
snow(j) = fsnow(i, nsrf) |
snow(j) = fsnow(i, nsrf) |
260 |
yqsurf(j) = qsurf(i, nsrf) |
yqsurf(j) = qsurf(i, nsrf) |
261 |
yalb(j) = falbe(i, nsrf) |
yalb(j) = falbe(i, nsrf) |
262 |
yrain_f(j) = rain_fall(i) |
yrain_fall(j) = rain_fall(i) |
263 |
ysnow_f(j) = snow_fall(i) |
ysnow_fall(j) = snow_fall(i) |
264 |
yagesno(j) = agesno(i, nsrf) |
yagesno(j) = agesno(i, nsrf) |
265 |
yrugos(j) = frugs(i, nsrf) |
yrugos(j) = frugs(i, nsrf) |
266 |
yrugoro(j) = rugoro(i) |
yrugoro(j) = rugoro(i) |
334 |
yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), yt(:knon, :), & |
yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), yt(:knon, :), & |
335 |
yq(:knon, :), yts(:knon), ypaprs(:knon, :), ypplay(:knon, :), & |
yq(:knon, :), yts(:knon), ypaprs(:knon, :), ypplay(:knon, :), & |
336 |
ydelp(:knon, :), yrads(:knon), yalb(:knon), snow(:knon), & |
ydelp(:knon, :), yrads(:knon), yalb(:knon), snow(:knon), & |
337 |
yqsurf(:knon), yrain_f(:knon), ysnow_f(:knon), yfluxlat(:knon), & |
yqsurf(:knon), yrain_fall(:knon), ysnow_fall(:knon), & |
338 |
pctsrf_new_sic(ni(:knon)), yagesno(:knon), y_d_t(:knon, :), & |
yfluxlat(:knon), pctsrf_new_sic(ni(:knon)), yagesno(:knon), & |
339 |
y_d_q(:knon, :), y_d_ts(:knon), yz0_new(:knon), & |
y_d_t(:knon, :), y_d_q(:knon, :), y_d_ts(:knon), & |
340 |
y_flux_t(:knon), y_flux_q(:knon), y_dflux_t(:knon), & |
yz0_new(:knon), y_flux_t(:knon), y_flux_q(:knon), & |
341 |
y_dflux_q(:knon), y_fqcalving(:knon), y_ffonte(:knon), & |
y_dflux_t(:knon), y_dflux_q(:knon), y_fqcalving(:knon), & |
342 |
y_run_off_lic_0(:knon), y_run_off_lic(:knon)) |
y_ffonte(:knon), y_run_off_lic_0(:knon), y_run_off_lic(:knon)) |
343 |
|
|
344 |
! calculer la longueur de rugosite sur ocean |
! calculer la longueur de rugosite sur ocean |
345 |
|
|