142 |
REAL rugmer(klon) |
REAL rugmer(klon) |
143 |
REAL ytsoil(klon, nsoilmx) |
REAL ytsoil(klon, nsoilmx) |
144 |
REAL yts(klon), ypct(klon), yz0_new(klon) |
REAL yts(klon), ypct(klon), yz0_new(klon) |
145 |
real yrugos(klon) ! longeur de rugosite (en m) |
real yrugos(klon) ! longueur de rugosite (en m) |
146 |
REAL yalb(klon) |
REAL yalb(klon) |
147 |
REAL snow(klon), yqsurf(klon), yagesno(klon) |
REAL snow(klon), yqsurf(klon), yagesno(klon) |
148 |
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 |
350 |
|
|
351 |
! calculer la diffusion de "q" et de "h" |
! calculer la diffusion de "q" et de "h" |
352 |
CALL clqh(dtime, julien, firstcal, nsrf, ni(:knon), & |
CALL clqh(dtime, julien, firstcal, nsrf, ni(:knon), & |
353 |
ytsoil(:knon, :), yqsol(:knon), mu0, yrugos, yrugoro, & |
ytsoil(:knon, :), yqsol(:knon), mu0, yrugos(:knon), & |
354 |
yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), & |
yrugoro(:knon), yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), & |
355 |
yt(:knon, :), yq(:knon, :), yts(:knon), ypaprs(:knon, :), & |
ycdragh(:knon), yt(:knon, :), yq(:knon, :), yts(:knon), & |
356 |
ypplay(:knon, :), ydelp, yrads(:knon), yalb(:knon), & |
ypaprs(:knon, :), ypplay(:knon, :), ydelp, yrads(:knon), & |
357 |
snow(:knon), yqsurf, yrain_f, ysnow_f, yfluxlat(:knon), & |
yalb(:knon), snow(:knon), yqsurf, yrain_f, ysnow_f, & |
358 |
pctsrf_new_sic, yagesno(:knon), y_d_t(:knon, :), & |
yfluxlat(:knon), pctsrf_new_sic, yagesno(:knon), & |
359 |
y_d_q(:knon, :), y_d_ts(:knon), yz0_new, y_flux_t(:knon), & |
y_d_t(:knon, :), y_d_q(:knon, :), y_d_ts(:knon), & |
360 |
y_flux_q(:knon), y_dflux_t(:knon), y_dflux_q(:knon), & |
yz0_new(:knon), y_flux_t(:knon), y_flux_q(:knon), & |
361 |
y_fqcalving(:knon), y_ffonte, y_run_off_lic_0) |
y_dflux_t(:knon), y_dflux_q(:knon), y_fqcalving(:knon), & |
362 |
|
y_ffonte, y_run_off_lic_0) |
363 |
|
|
364 |
! calculer la longueur de rugosite sur ocean |
! calculer la longueur de rugosite sur ocean |
365 |
yrugm = 0. |
yrugm = 0. |