125 |
|
|
126 |
real ffonte(klon, nbsrf) |
real ffonte(klon, nbsrf) |
127 |
! ffonte----Flux thermique utilise pour fondre la neige |
! ffonte----Flux thermique utilise pour fondre la neige |
128 |
REAL run_off_lic_0(klon) |
REAL, intent(inout):: run_off_lic_0(:) ! (klon) |
129 |
|
|
130 |
! Local: |
! Local: |
131 |
|
|
341 |
y_flux_v(:knon)) |
y_flux_v(:knon)) |
342 |
|
|
343 |
CALL clqh(julien, firstcal, nsrf, ni(:knon), ytsoil(:knon, :), & |
CALL clqh(julien, firstcal, nsrf, ni(:knon), ytsoil(:knon, :), & |
344 |
yqsol(:knon), mu0, yrugos(:knon), yrugoro(:knon), yu(:knon, 1), & |
yqsol(:knon), mu0(ni(:knon)), yrugos(:knon), yrugoro(:knon), & |
345 |
yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), yt(:knon, :), & |
yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), & |
346 |
yq(:knon, :), yts(:knon), ypaprs(:knon, :), ypplay(:knon, :), & |
yt(:knon, :), yq(:knon, :), yts(:knon), ypaprs(:knon, :), & |
347 |
ydelp(:knon, :), yrads(:knon), yalb(:knon), snow(:knon), & |
ypplay(:knon, :), ydelp(:knon, :), yrads(:knon), yalb(:knon), & |
348 |
yqsurf(:knon), yrain_f, ysnow_f, yfluxlat(:knon), & |
snow(:knon), yqsurf(:knon), yrain_f(:knon), ysnow_f(:knon), & |
349 |
pctsrf_new_sic, yagesno(:knon), y_d_t(:knon, :), & |
yfluxlat(:knon), pctsrf_new_sic(ni(:knon)), yagesno(:knon), & |
350 |
y_d_q(:knon, :), y_d_ts(:knon), yz0_new(:knon), & |
y_d_t(:knon, :), y_d_q(:knon, :), y_d_ts(:knon), & |
351 |
y_flux_t(:knon), y_flux_q(:knon), y_dflux_t(:knon), & |
yz0_new(:knon), y_flux_t(:knon), y_flux_q(:knon), & |
352 |
y_dflux_q(:knon), y_fqcalving(:knon), y_ffonte, y_run_off_lic_0) |
y_dflux_t(:knon), y_dflux_q(:knon), y_fqcalving(:knon), & |
353 |
|
y_ffonte(:knon), y_run_off_lic_0(:knon)) |
354 |
|
|
355 |
! calculer la longueur de rugosite sur ocean |
! calculer la longueur de rugosite sur ocean |
356 |
|
|