| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch