475 |
ypplay, ydelp, y_d_v, y_flux_v) |
ypplay, ydelp, y_d_v, y_flux_v) |
476 |
|
|
477 |
! calculer la diffusion de "q" et de "h" |
! calculer la diffusion de "q" et de "h" |
478 |
CALL clqh(dtime, itap, jour, debut, rlat, knon, nsrf, ni, pctsrf, & |
CALL clqh(dtime, itap, jour, debut, rlat, knon, nsrf, ni(:knon), pctsrf, & |
479 |
ytsoil, yqsol, rmu0, co2_ppm, yrugos, yrugoro, & |
ytsoil, yqsol, rmu0, co2_ppm, yrugos, yrugoro, yu1, yv1, & |
480 |
yu1, yv1, coefh(:knon, :), yt, yq, yts, ypaprs, ypplay, ydelp, & |
coefh(:knon, :), yt, yq, yts, ypaprs, ypplay, ydelp, yrads, & |
481 |
yrads, yalb, yalblw, ysnow, yqsurf, yrain_f, ysnow_f, yfder, & |
yalb, yalblw, ysnow, yqsurf, yrain_f, ysnow_f, yfder, ysolsw, & |
482 |
ysolsw, yfluxlat, pctsrf_new, yagesno, y_d_t, y_d_q, y_d_ts, & |
yfluxlat, pctsrf_new, yagesno, y_d_t, y_d_q, y_d_ts(:knon), & |
483 |
yz0_new, y_flux_t, y_flux_q, y_dflux_t, y_dflux_q, & |
yz0_new, y_flux_t, y_flux_q, y_dflux_t, y_dflux_q, & |
484 |
y_fqcalving, y_ffonte, y_run_off_lic_0, y_flux_o, y_flux_g) |
y_fqcalving, y_ffonte, y_run_off_lic_0, y_flux_o, y_flux_g) |
485 |
|
|